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A.l INTKODUCTIOW 

The purpose of this task is to investigate the existence, availability, 
and applicability of automated verification tools. A comparative analysis 
is made and relative merits are evaluated. In addition, recommendations 
regarding development of nev tools or modification of existing tools for 
NASA applications are discussed. 

In the course of this investigation eight automated verification tools 
were tested. Two difficulties were present from the outset. The first 
was the availability of certain tools for purposes of a comparative 
analysis. Researchers were reluctant to release their tools for an 
evaluation over which they had no control. Thus some better known tools 
such as PACE and RXVP were not included in the study. Secondly, due to 
the diversity of tool functions , capabilities and machine implementations, 
a suitable test bed for comparison had to be found. This was accomplished 
by using the same source program for testing the tools and adopting common 
units of measurement for timing statistics. These units of measurement 
are: 

(l) the time required to compile the test program 

{2) the time required to execute the test program 

Thus, if a particular tool was tested on machine X, the timing statistics 
are relative to the normal compile and execution times of the program on 
machine X. 


A. 2 DESCRIPTIONS OF THE AUTOMATED TOOLS TESTED 
A. 2.1 Automatic Test Data Generator (ATDG) 


TRW Implementations : UKIVAC 

Houston j, Texas 


ATDG exEuaines a FORTRAN source program to determine the values of program 
variables req,uired to produce optimal test eases. A report is produced 
upon completion of a path analysis for each program or subroutine. The 
report is presented in six sections: 

Section I: FORTRAN source code listing and corresponding 

segment numbers. {A segment is a set of contiguous 
source lines with no branch points). 


Section II: 
Section III: 
Section IV; 


Static error analysis. Checks are made for infinite 
loops, unreachable code, and set /use violations. 

Segment number reference for symbols in set /use 
statements . 

List of program paths 


Section V: List of program paths with branch expression 

values which affect execution. 

Section VI: Skeleton listing of each program path. 

Exhibit Reference: A , 

Test result's: 

The exhibit shows the AtDG reports produced for FORTRAN program HSMAIN and 
one subroutine . 


The output from the ATDG static error analysis (sections II and III) is 
interesting only when errors are uncovered in the element being analyzed. 
Of the six elements, only' the main program (HSMAIN) had any detectable 
errors. The only errors which may require some explanation are those 
related to unreachable code : 

a) ATDG says that the transfer 67-69 (and consequently 69-TO and 
70-50) cannot be reached. An attempt was made to verify this. 
The transfer 67-69 is executed if L-N+1=0 (i.e. , if L-N+l); 
since L=N is set at segment 59 and L is decremented at segment 
62, it appears that L can never be greater than N. (The reader 
is encoiu'aged to examine the code and locate these transfers). 

b) ATDG says that the transfer 96-97 (and consequently 97-113) 
cannot be reached. Since NVEC— 4 is set at segment 1 and is not 

altered until segment 105, it appears that NVEG.EQ.O; will in 
fact always be false at segment 96. 


The final data generation output of ATDG is most useful if the transfers 
in the element are dependent upon integer switch variables, especially If 
these are inputs to the element or are set to a contitani.. IL ducjs vory 
badly if switching is baaed upon dimensioned variables, uiiice Jt Uo^u 
not interpret the value of the dimensions. When processing DO loops, 
it iterates the loop only as marQr times as are necessary to execute 
all transfers within the range of DO (i.e,, the indexes on the DO 
statement are disregarded). Since the elements in this program perform 
much of the transfers based upon the value of A(l,J) and all contain 
a large number of DO loops, much of the data generation information is 
difficult to interpret. To assist the reader in understanding the 
reports, the following test cases have been derived for subroutine COMPIT; 

a) By looking at Section VI , we know that the inputs which affect 
branching are N, L, SIGMA, A, and EHO. These are the values 
which will constitute a test case; all other inputs are 
arbitrary, 

b) The listing (section I ) shows that the key feature of the routine 
is the loop from segment 2 to 36. The path 1 in Section V shows 
that the loop (i.e., segment 36) is exercised 3 times, therefore 
M-L“2 . We can thus assume that L~1 and will be alright since , 
in segment 1, M-N-l=3 would then be set. 

e) It appears that, after deriving a setting for L and U, the only 
other constraints to set are those on Bl and D (i.e., since 
these are the branches shown in output V that are not dependent 
upon L and w) . Section V shows that the first time through the 
loop, the conditions Bl.GE.O and D.WE.O must be true; the second 
loop, Bl.LT.O and D.KE.O must be true; the third loop Bl.GE.O 
and D.ME.O must be true. Further, D cannot be negative, so 
change all D.WE.O to D.GT.O. Then, the conditions for Path 1 
can be satisfied by; 

First Loop 

D = SQRT(B1^ f B2^ + B3^)>0 true if B1,^0 

Bl = A(l,l)(A(l,l)-SIGMA)+A(l,2)A(2,l)+RH0>0 

true if A(1,1)=1.0 , SIGMA= . 5 > A( 1 , 2 ) =A ( 2 ,1) =:BH0=Q . 0 

S^econd Loop 
D>0 true if Bly^O 

B1=A(2,2){aC2,2)-SIGMA)+A(2,3)A(3,2)+EH0<0 

true if A(2,2)=.l , SIGMA=.5 , A(2,3)=A(3,2)-HHQ=Q.Q 




A.2.2 FORTUNE 

CAPEX Implementations: IBM, CBC 

Phoenix, Arizona 

FORIIME is used, for FORTBAE source level optimization and execution analysis 
Statistics gathered during program execution provide: 

(1) the exact number of times each statement was executed, 

(2) the estimated total execution time for each statement, 

(3) the number of IF statement true paths taken, 

(4) a summary of the estimated time and percentage of time spent 
■within each program module. 

Standard preprocessor /postprocessor organization is used. Timing infor- 
mation is gathered by analyzing each soiurce statement, estimating the 
execution time for each statement, and then multiplying the estimated 
time by the number of executions. Estimates are obtained as follows: 

(1) a basic cost fcr each statement type (DO, GOTO, etc.), 

(2) a further incremental cost for each operation in arithmetic 
statements, each argument in subroutine entries, and 
invocation of intrinsic functions. 

Estimates are relative to a base value of 2 for a GOTO statement. Library 
subroutine times are based on published values. Timings are not estimated 
for I/O statements. 

Exhibit Reference: B 

Test results : 

The exhibit shows the results of instrumenting an entire FORTRAH program. 
Note the use of an annotated source listing for reporting data. 
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A. 2.3 NBS Analyzer 


Gordon Lyon 
Rona Stillman 

Institute of Computer Sciences and Technology 
National Bureau of Standards 
Washingtons D.C. 20234 


Implementations : UWIVAC 


The NBS Analyser is a simple static and dynam i c tool for use with FORTRAN 
programs. Static analysis consists of a summary of source statements hy 
FORTRAN type (i.e., GOTOj, DO, FORMAT , etc .) . To obtain dynamic statistics, 
a preprocessor divides the source program into segments. A segment is 
defined as a set of contiguous instructions containing no transfer of 
control statements. Thus a new segment is defined upon encountering a 
GOTO, IP, DO, etc. statement. Assignment of segments continues across 
subroutine boundaries ; that is , a main program and any attendant subroutines 
are treated as a single program. Dynamic statistics consist of a matrix 
containing execution counts for each segment of the instrumented FORTRAN 
program. 

Exhibit Reference; C 
Test results 

Exhibit pages 1C through 15 c show the segment assignments for a FORTRAN 
program with five subroutines, Page i6c contains the Local Analysis 
for the program. Dynamic execution counts are contained on page ITC. 
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A. 2. 4 Program Evaluator and Tester (FET) 

McDonnell Douglas Automation Company Implementations: IBM,CDC,GE, 

Huntington Beach, California Honeyirell 

PET is an automated aid used in debugging, testing and documentation of 
FORTRAN programs. Standard preproeessor/postprocessor organization is 
used. Run time statistics include: 

(1) the number of times each statement was executed 

(2) the number of times each branch of a program was executed. 

This includes branch counts for logical and arithmetic 

IP conditions, plus computed and assigned GOTO's branching 
histories . 

(3) the minimum and maximum values attained by an assignment 
statement variable or DO loop parameter. 

( 4 ) the first and last values attained by an assignment 
statement variable or DO loop parameter. 

(5) relative subroutine execution timings. 

All of the above except (l) and (2) are optional, and may be activated 
via an option card. For each subprogram, a one page syntactic and 
operational profile is written by the postprocessor. For each program, four 
one page reports are written: a syntactic and operational profile, a 

subprogram operational summary, a subprogram execution summary and a sub- 
program timing summary. 

Exhibit Reference: D,E 

Test results; 

The exhibit shows the results of instrumenting ah entire FORTRAN program. 
Exhibit D reflects a run with full instrumentation, while Exhibit E 
shows the same program executed with minimal instrumentation. Eote the 
expanded use of the annotated source listing for displaying dynamic 
execution statistics. 


A. 2. 5 PFORT Verifier 


Implementations: IBM, CDC, 

Honeywell , 
Burroughs, 
Others 

The PPORT Verifier checks a FORTRAN source program for adherence to PFORT, 
a portable subset of ANS FORTRAN. Subprogram communication is checked 
through common argument lists. Debugging and documentation aids include 
subprogram cross reference giving type, usage and attributes of each 
identifier with a list of statements in which it occurs. Also provided 
is a summary by subprogram listing argument attributes , common blocks 
used, subprograms called, and the calling subprograms. PFORT is written 
in PFORT. 

Exhibit Reference: F 

Test results: 

Exhibit pages IF through 6 f illustrate the results obtained after scanning 
subprogram IMVEC. Exhibit page TF is the summary report for the entire 
program. 


A. D. Hall 

B. G. Ryder 
Bell Laboratories 
Murray Hill, New Jersey 
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A. 2. 6 Problem Program Evaluator (FPE) 


Boole and Babbage Implementations: IBM 

Sunnyvale, California 

PPE is a performance measurement tool residing in the same region as a 
problem program to be measured. The executing program is sampled at regular 
intervals by the PPE Extractor and the sample data is stored on a disk 
or tape for later analysis by the PPE Analyzer. Measurements include: 

(1) percent of time the program is actively executing, 

( 2 ) percent of time the program is waiting for I/O to complete, 

( 3 ) percent cf time the program is waiting for non-I/O events 

to complete, 

(U) how the I/O is distributed among the problem program’s 
data sets, 

( 5 ) percent of time the problem program is executing 5VC’s 
(Supervisor Calls) , 

(6) where in the program the various activities and waits occiirred. 

Note that PEE performs analysis on load modules, and is therefore independent 
of the programming language used. 

Exhibit Reference: G 

Test results: 

The exhibit displays the results of a PPE extractor and analyzer run for 
a COBOL program. Since the PPE Code Activity Report is rather complicated, 
the significant portions of the report are explained below: 

1. Distribution of Activity (Excluding DSQW Wait) 

The "Sample Boundary" referred to is the entire region specified. 
Samples taken, above and below the sample boundaries, are those 
in OS routines which cannot be related back to the problem 
program, "Active" is defined as that percentage of activity 
when instructions are being executed within the area. "Wait" 
is that activity when the CPU must wait for some event associated 
with an activity within the area before it can resume processing 
— not including I/O wait that can be associated with a data 
set; examples are OPEN, CLOSE, LINK and LOAD. 


2. Distribution of DSOW Wait 


This section giTes a comparison, on a percentage basis, of the 
ntanber of DSOW samples associated \ri.th each data set for which 
there is a DD statement. Data sets showing a high percentage 
of activity should be examined for opportunities to reduce 
this amount. 

3 * Module tfep (Excluding Wait) ^ 

This section provides a list of each module sampled by the extrac- 
tor in the orier in which they were encountereds the starting 
and ending addresses for each module, relative to the beginning 
of the OS region; and the percentage of active samples for each 
module. 

4. Study Report 

This section is the most important part of the report. It 
provides information as to how the CPU time was distributed 
throughout the program. The ’'Code Execution Frequency’' sub- 
report lists the percentage of time "Active” samples were taken 
in each interval of the program. An interval is a number of 
contiguous bytes (usually 32) used for grouping extractor results. 
Therefore, each interval shown on the report represents several 
machine instructions. Th“ starting and ending location shown 
for each interval represent their addresses relative to the 
beginning of the module. 

For convenience, the 10 Most Frequently Executed Intervals 
are listed separately* The value of this report is that it 
allows the Programmer to concentrate his effort of optimizing 
the source code on those areas of the program where the most 
time is being consumed. For those intervals having a high 
percentage, the corresponding source statements should be 
examined, in an attempt to improve the coding. 

A drawback of PPE is the necessity of consulting a source program load 
map to associate timing statistics. An alternate approach is taken by 
FORTUNE, in which timing values are reported directly on the source 
program listing. PET also provides similar statistics on a more 
suinmariaed basis per subprogram. An advantage over most other performance 
measurement tools is PPE ability to measure programs of any source 
language on IBM, 
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A, 2,7 FORTRAN Structuring Engine (SFQH^PRM) 

Caine, Farber and Gordon, Inc. Implementations; IBM 

Pasadena , California 

The FORTRAII Structuring Engine produces a SFORTRAW source program and 
listing from a FORTRAN source program. SFORTRAN is a highly structured 
superset of FORTRAN. A SFORTRAW to FORTRAN preprocessor is available 
to allow compilation and execution of SFORTRAN programs. The SFORTRAK 
program listing is designed to easily identify blocks of code and thus 
obtain a picture of the overall logical structure of the program. 

Exhibit Reference: H 

Test results; 

Probably the best produce of this type on the market today, in terms 
of structuring a given FORTRAN program. Note that even if the 
preprocessor is never used to execute the SFORTRAN representation of 
a particular FORTRAN program, the SFORTRAN listing can be an invaluable 
aid in determining -what is going on in a large and complicated program. 

The Structuring Engine has serious practical limitations to go along 
with its sophisticated output, however, since a lOOOK load module size 
makes it rather machine dependent . Also , the number of SFORTRAN 
lines starts to go up extremely fast as the number of branch points 
in the FORTRAN program increases. 
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A. 2. 8 DISSECT SynibollG Evaluation System 

McDonnell Douglas Automation Company Implementations: PDP-10 

Huntington Beach, California 

DISSECT is a symholic evaluation system that is used to analyze programs 
written in ANSI FORTRAN* 

When a program path is executed hy running the program on a given input , 
the correctness of the path for that input can he determined hy examining 
the effects of the calculations carried out hy the path. If the path is 
executed "syrnholically'’ rather than With actual data, it may he possible 
to use a single execution to illustrate its correctness on a large subset 
of the input domain rather than on just a single value. Symbolic 
execution of a program is carried out by given dinnit^ symbolic values rather 
than actual numeric (string, logical, etc.) values to all or some of the 
input variables of the program. An expression in the program involving 
variables with symholic values is evaluated hy substituting the current 
symholic values of the variables into the expression. The resulting 
expression is then simplified algebraically. All operators having only 
actual as opposed to symbolic operands are evaluated in the normal way. 

The resulting expression is the symholic value of the original expression. 

The DISSECT system operates on two input files and produces an output file. 
One of the input files contains a FORTRAN program to he analyzed and the 
other contains the DISSECT commands which tell the system what kin(^ of 
symholic evaluation analysis to carry out. The output file contains the : 
results of the analysis. 

The command file for a DISSECT analysis is divided into a nuimber of cases . 
The program in the input file is processed completely for each case. 

Each case has a section for a text description of the part of the program, 
to be analyzed by the case. This text is not processed by the system 
and is considered to he the specification for the case. The rest of a 
case contains commands which identify the part of the program which corres- 
ponds to the case, commands which assign (symholic) values to variables and 
commands which specify what output is to be generated. 

The butput file which is generated by a DISSECT analysis is also divided 
into eases. Each output case contains the case specifications and 
commands as well ^as the output, generated by the system for that case. 

The user can check the validity of his program by comparing ease 
specifications with system output for cases. 

A program path is a possible flow of control through the program. A path 
is feasible if at least one element of the program's input domain causes 
that path to be executed. In general, a complete set of DISSECT cases 
for a program should "cover” the program in some sence. One approach 
is to analyze each feasible path (up to some number of iterations of loops) . 
Complex, programs having many paths can he divided into segments and analyzed 
using separate cases. 


Exhibit Reference: I 

Test Results; 

The first page of the exhibit contains a program called IMTERPs where 
DISSECT was used to verify that the program agreed with its specifications. 
The IMTERP routine is written so that the number of points UTERMS used 
in the interpolation process may be less than the number of points 
available (JJPTS). The first segment of the routine'^ lines 1-25 9 decides 
which points to use. It involves choosing a value for II. The points 
X(ll)> X(Il+l)s X{ll+n-l) in the program correspond to the points 

2^19 X25 -..9 Xxi in the documented formulae (n=min {NPTS, WTERMS} ) , The 
documentation states that xi (i.e., X(ll)) "is chosen so that xp and 
straddle x". "If the value of x is too close to the lower or upper limit 
of the values of x^, the corresponding value of x^ or x^^ is set equal to 
the limiting value" . 


It was decided to examine the paths through this section of code for IIPTS 
= 1 and 2 (the limiting cases) and also for NETS = 3 and ISPTS - 4, 

Exhibit pages 21-331 contain the system output for these four cases s 
which cause DISSECT to analyze all paths in the program up to statement 28 
for WPTS = 1, 2, 3 and k. 

This is a large number of paths but it was found that the output for each was 
easy to read and that it was easy to determine if the program was correct for 
the case. 

The second segment of DISSECT^ lines 26-33 is supposed to compute the 
following values of A and 



^2 ” ^1 ^2 " ^1 


The verification of this segment is contained in Cases 5 and 6 on exhibit 
pages 331 and 3^1. 


The Case 6 coramaiid ASSIGBl' II = "11" ensures that the output for Case 6 will 
use the symbol II to stand for II rather than the value it may have as the 
result of earlier calculations. 

Symbolic output for code in the third segment, lines 3t through 48, appears 
in Cases T and 8 on exhibit pages 351 and 361. 


The final segment of the programs lines 49 through 60, is supposed to 
compute the formula: 


Y(x) = + 


n 

E 

j =2 




j“l 

.n, 

1=1 




Symbolic output for this segment appears in Cases 9 and 10 on exhibit 


pages 361 and 3TI (the program uses the variable Y0UT to represent the 
value y(x)) . 


JOYCE 


A. 2. 9 

McDonnell Douglas Automation Company Implementations : CDC 

Htintington Beach, California 

JOYCE is a program designed to aid the programmer both in checkout and 
documentation. It accepts as primary input FOETRAE source decks in the 
form of card decks or CDC compile files. The source decks are edited 
producing tables of referenced symbols (variables, subroutines, and I/O 
files) and flowlists (microfilm FORTRAN listings with all transfers indicated 
by arrows to the right of the listing and all DO loops indicated by 
brackets on the left). Also available are cross-reference lists for variables, 
subroutines, and I/O references. The above edit information may be combined 
with definitions and mathematical symbols, input on data cards, to yield a 
completely cross-referenced program glossary. This glossary may be listed, 
on microfilm in a variety of formats on a program and/or subroutine level 
sorted on FORTRAN and/or mathematical symbol or in any of several special 
modes (e.g. by storage location). All operating modes require only a few 
easily punched free-format control cards. JOYCE is written entirely 
in FORTRAN IV. 

Exhibit Reference: J 

Test results : 

Exhibit pages IJ through lOJ show the flowlist for the test program and its 
subroutines, produced on microfilm. All transfers are indicated by arrows 
to the right of the statement text, and all DO loops are indicated by 
brackets to the left. 

Exhibit pages IIJ through 2I4J contain the symbol cross references in 
alphabetical order. A description is given for each use of a symbol 
name, together with an analysis of the symbol's use in a subroutine. . 

This output may optionally appear on a printer. 

Entries under the Subroutine Usage heading include: 

(1) Subroutine name in which the symbol is used 

(2) : A code indicating how the symbol is used, A complete list 

of usage codes is contained on. Exhibit page 44J ^ The 
most frequent codes appearing in this example are: 

M ~ the symbol is modified 
W - working variable 
I - input variable 
0 - output variable 

(3) Symbol Type (real, integer, etc.) 

(4) Variable name within the hubroutlne 

(5) Dimension, if symbol is an array 
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The Gross Reference Matrix is on Exhibit pages 44 J through 4 bJ 
This matrix is a suiranary of the information in the cross refer 
ence discussed earlier. This output appeared on the system 
printer. 




A. 2.10 DAVE 

Lloyd Fosdick and Leon Osterweil Implementations : CDC ^ IBM 

Dept, of Computer Science 
University of Colorado 
Boiilder, Colorado 

DAVE is a system used to detect the existence of a wide variety of errors 
in APFSI Standard FORTRAN programs. Common programming errors that DAVE 
■will detect include: 

(1) misspelled variables 

(2) transposed variables 

(3) failure to initialize 

(4) misspelled lables 

Under mild restrictions » DAVE can guarantee that certain types of errors 
are absent. 

DAVE does not attempt to positively identify the exact nature of every 
error in a program. Instead, the program is probed for suspicious and 
elusive constructs, thus confronting the programmer directly with various 
suhleties and suspicious aspects of the program. The programmer must then 
use the messages and ■warnings produced by DAVE to improve his program. 

DAVE is ■written in highly portable FORTRAN, 

Exhibit Reference: K . 

Test results : 

Exhibit pages IK through 13K show the program listing for test program 
UNSEIC and its five subroutines. Page i4k illustrates the Call Graph Table 
which lists the external calls for the luain program and each subroutine. 

The remainder of the Exhibit shows Various -warning messages for the main 
program and each subroutine. 


STBS Analyzer 
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A, 3 TIMIIfG STATISTICS 

The following pages contain timing statistics for each of the tools 
tested to date. Two common units of measurement have heen established 
to give, some basis of comparison for all tools tested. These units 
of measurement are i 

(1) the time required to compile the uninstrumented source program 

(2) the time required to execute the uninstrumented program. 

Thus, if a particular tool was tested on machine X, the timing statistics 
are relative to the normal compile and execution times of the program on 
machine X. 

In addition, the same best program is used for different tools whenever 
possible. 






1 Unit - Time required to compile uninstrumented prog 
1 unit s= time required to execute uninstrumented prog 



Preprocessor 

Execution 

Time 


Instrumented 

Compile 

Time 

EORTUHE 


Instrumented 
Execution and 
Postprocessing Time 
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1 Unit 


time req,uired to compile nninEtrumented prog, 
time required to execute unins truraented prog. 




Preprocessor Instrumented Instrumented Post processor .. 

Execution Compile Execution Execution 

Time Time Time Time 


PET 

(Full Instrumentation) 
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A. Automatic Test Data Generator (ATDG) 

B. FORTUNE 

C. NBS Analyzer 

D. Program Evaluator and Tester (PET) - full instrumentation 

E. Program Evaluator and Tester (PET) - minimal instrumentation 

F* PFORT Verifier . 

G* Problem Program Evaluator (PPE) 

H. FORTRAN Structuring Engine (SFORTRAN) 

I. DISSECT Symbolic Evaluation System 

J. JOYCE 

K. DAVE 





A-: 


01 



:DfU 14, 


rsr~npprTr-AYS'DFE:D 

) 14.Dl-I36/02“lf):b4-lGTl) 



0 DIHENSlOW A 4 10x101 jVECiSI? EIGVEC(4 t4J, INT 



2 MAX::K1 


— 0 0 'ZJ-KZ'il'i: — — ^ 

A&= ABS4 A( I, J> J 

— ^ir~rcn7E A r b ev/tbt "ctr ‘T o' 

3 GREAT^AB 


6 2 COimTINUE 

1~ lATT-T^l -WA)C— — 

If 8 IF ChAX.EQ*KlJ GO TO 5 

■ 9 -tT"00 6 1 - jy ^ — ' — ~ 

9 E:tA{K1,U 

' — 9 — A-t-KlTt-l-r A -T N A X , tT l 

ID 6 A(KAXxL)“E 

— H: — m J L-= t i H - - - . - ■ ■ 

11 E=A(L,K1J 

_ J-J-— — ^ ^ 2 j 

12 7 A tL,MAX3=E 

■— 1 ^- — ' . -K-Z> — — ^ — 

r 13r 14 IF (Atl,J) ,Ew-0. i 00 TO 8 

- A t I , J) =-A( 1, Jl/A (K l , J J 

16 DOilM=Kl,R 

._..2 -I J—A t 1 rm = A t I , rn + A ( 1 1 J ) (K1 ,M J" ■ 

IS 6 CONTINUE 

— t9-" ■tro-2ooo-frrKZTrj— — 

19, 20 IF tAtMTJl-EU,0.) 60 TO 20QQ 

—Zi~ -IC 00 2C01 I-1',N - 

22 2C01 Ali,HlJ=AtlTKn-A(I,hJ’icA(H,J) 

“23-““ ' -"^—^2000 CONTI MUF ’ ' ' ' 

24 1 CONTINUE 

^ — __ — — ■ DO ’^rc'S -i-n-K : — 

26 DO 1G5 J=1 ,N 

— 2 j ICir O t i, J’) -A f I ,-jJ — 

2 a DO 1U6 1-3, N 




O' ch O' 


28 


RS=RS+ ABS£AtI,Jl) 

Kirr'rK'r-J“ 

K1I=K1-I 


IF (RS.LE.R) GO TO 36 


36 IF (CS.LE1*C} GO TO 34 

tF4--C-CrS ^ 

34 CONTINUE 


IF (R.GE.O GO TO 54 

-ST-0 E L TA “ R ii' 1 . a r- 1 X “ — 

DEL=R/ J7, 1H29 

- — -& 0 -- Ttr -153 — — — 

54 DELTA = C>:'1 -OE-11 

— — 0£tr=’Cn'T-rro2:9 — — ^ 

153 DO 107 1 = 1, N 

tllT-A ( i , -rr^-A 1 1 rl'T’-trE-t — ■ • 

55 IF IN.NE. 1 ) 60 TO 48 

-<rT-TA LirT:-ftteE VTAi'MMA-x tr£ tryVErCTriJ ktn 

60 TO 76 ‘ 


49 CALL CALCEV (A,NHAX,DEL ,VEC,IJK,N ,2) 

—60- -16—7.6— — — 

80 ARl=D.a 

ATX3-=Xj;;tl ^ ^ 

AR4=0-D 


DO 56 1=2, N 

N2i- = N+2-*l ■ — ' — — 

IF ( AESCA CN21,N2X-1) 1 o LT . DELT A J 6 0 TO 57 

57 IF (L.NF.N) GO TO 59 
BXt-tfrtir-Xrfrt e-E V-firFttHAi(TT>ei=T^ 

, ^ ; 'N=N-1. 

^-60-T0“^tfl ^ — 

59 IF ( tL-N+1 ) •NE .0 J GO TO 75 

6£r~C ALL C ALCE V { A , NMA X > DE tvVE C“, UK ,-N , 2 J- 

, N=N-2:. 


75 B=A(N-1,N-1}+ACN,N) 

C-=A f N-l jN-D^A (N,N J-AtNtN-ll^A 

Ci=A IN-'1,N“1]-ACN,N) 




DISC::C1«C1+4.0«A( N,N-1)=?A (N-1 ,N) 

Tl^-tT3rSC*T3E:TD;7‘G0' TI) ST 

62 R1=0,5«B 

s'CTTrt' AB’s tirrs'ni 

ANUM={ R1~AR31^ (R1-AR3 J + CR7-AR4 3=4' lR2-ARiJ} 

D Oi 0Tf=7^ RT3TA15 T+7S R k 

IF (DEfgOM.NE.O.) GO TO 200 

2Cri~RIT0 = CTa 

SIGHA=U.G 

GtJ ■T0”7U3 

2DO RHC-C 

ST(TR5=S ^ 

203 AR3=R1 

KW:: R? 

CALL COMPIK A,NMAX>L,NyRHOtSIGMA) 

G0’TD~6'I 

63 IF te*GE.O. ) GO TO 65 


rillKVM 


81 


G0T066 

♦ ' 

■ ■( 

■ r .1 \ 

a2 

82 i 

83 

13 >5^ ( 5TF3'Q R r C 0T5 CTT 
IF (Rl.NE.O.) 60 TO 66 


] 1 ! 


GO TO 64 

B'B^Z-CTRT — 

IF( ABS{AfN,N)-Rl).6E* ABS(A(N,NJ-R2J )G0 TO 


98 

9S— 

96 

99 

^~99— 

'--iOl-™ 

i02 


IC6 

-*i06-V' 

loe 


-! 10" 

110, 


67 AR2=R1 

Gg-T0‘ 6 9"" — 

66 AR2rN2 

F 9 •IF- rrRT; N;E;L» 1 G O 1 0 r r~ 

72 SH1FT=D,0 

“T0--T0~T3 

71 SHIFT=AR2 

TS^ATnTTARZ^ ^ 

CALL REALIT ( A »AiMAX rL »N .SHIFT ,CC ,SS1 


■ I ' . 

97 76 IF (NVEC.EO^C) GO TO 6Q0 

— — 5-5rB~S H A L L^DELTA ’C' 1 vuE -"30 — ^ ^ ^ 

NUM — L . 

^ ^ ^ j ; —— ■-■■■■■ .. ■ - — — ^ ^ 

NM-NN+NN 

s-lrS-lMr^v EC iTii-t — — — — — ■ — — 

C2-VEC( JI + l ) 

- — ■ ■■■ . ■ — + I — — . , 

DO 570 1 = 1 , NN 

.... . — — 

570 A ( 1 , J1 =n Cl , JJ 

— — j f— •( ;Tr. 7 - - g cr -t C" srri " — — ^ — “ 

CALL RVECC A,fyyAX,lf>JT,ClySMALL,NN,MUM,EI6VECt 

-=?NVtCiCC,SS> - 

JI=JI+2 

(NVEC.EO.NUM)GO TO 6D0' — — 

GO TO bl3 

— 561 CALt'lHVfc Ci A", C7^T■S^^A^L■T^mTIT0^M 

«VEG,\V£C,CC, SS,£,BBJ 

111 lF^^tVEC^EO,NU^UGO TO 600 





i.- ..j 


X 



112 


GO TO 513 



“ — rr3 — 

113 

SUIT 

"CONTTNUE “ ■ ’ 

kRXTEt6,7Q0) { VEC (I J , 1 =1 , NN J 


1 . 

— riq" " 
115 

2D 

W“2XX=1 tWPJ ■ ■ 

WRITEC6,70D) (EIGVEC { r> JJ ,J=1,NN) 



D 

116 

"7UD — ' 

MfhMAltlH yiJLi^U»S' /~ m a t 

STOP 


^ ■ 

■ a 


“ETTD ^ — 



' ■ 

-srtJfTCTn 

NUMBERS 


FORTRAN STATEMENTS 


t ' 

V 

0 

ELEMENT EOF 


,r-; 

EAli ; 1 6 1 
0F;1S1 





«i 

INESiiei FIELDATA 



T' 


3RKPT PRINTS 







t 


♦^^+STfiTIC ERRDP AMflLySIS FDR ELEMEHT 


♦’►♦CHECK FOR IHFIMITE LOOPS 

HO IHFIMITE LOOPS HRVE BEEM BETECTED 


♦♦♦CHECK FOR UNREflCHRBLE CODE 

ERROR - THE FOLLOWIMG BRRHCHES CRNNOT BE EXECUTED 
67- 69 » 69- 70s 70- 50 s 96^ 97 s 97- 113 s 


♦♦♦CHECK SET^USE OF INTERMRL SYMBOLS 


fl 

IS 

USED 

IN 

THE 

FOLLOWING 

SEGMENTS WITHOUT HAVING BEEN 


3 

9 

13 

15 

17 

19 

2£ £7 



SET SEGMEHTS/ 

10 

IS 

30 

55 

56 65 

69 77 

94 




10£ 

105 

109 





USE SEGMEHTS/ 

£ 

3 

9 

11 

13 15 

17 19 

£c! 




£7 

3S 

33 

35 

36 49 

5£ 56 

60 




6S 

69 

71 

77 

86 94 

105 109 


AHUM 

IS 

SET 

IH 

THE 

FOLLOWING 

SEGMENTS BUT 

NEVER USED 

73 










HM 

IS 

SET 

IH 

THE 

FOLLOWING 

i SEGMENTS BUT 

NEVER USED 

93 











HD VIOLATIONS 

HAVE BEEN 

DETECTED 

FOR THE 

FOLLOWING SYMBOLS 

AB 

ARl 

AR2 

AR3 

AR4 

E. 

BE 

C 

CC 

CS 

Cl 

CS 

D 

BEL 

DELTA 

DENOH 

DISC 

E 

EIGVEC 

GREAT 

I 

UK 

I NT 

J 

JI 

K 

K1 

KlI 

KIJ 

K£ 

L 

M 

MAX 

N 

NMAX 

NN 

HUM 

NVEC 

N£I 

R 

RHD 

RS 

Rl 

Z 

R£ 

SHIFT 

SIGMA 

SMALL 

SS 

V£C 

♦ 


STRTIC ERROR RHRLYSi: IS COMPLETE. 





tSE UPPER ASSUMED 
7 -06/03^19 ;28-(D>l) 

riT 


^*+CHECK SET/USE OF INTERNAL SYMBOLS 

PROCESS SYMBOL A 

NO SET VIOLATIONS HAVE BEEN DETECTED ”-' : — ” 

A IS USED IN THE FOLLOWING SEGMENTS WITHOUT HAVING BEEN SET 


• : 

SET 

^ 3 9^ 13 15 X7^ 

SEGMENTS/ 10 12 3D 

T9^ 

52 

2^ 

56 

27^ 

65 

69 

77 

94 

i i ■ USE 

■ 152* IDS" 109 

SEGMENTS/ 239 

11 

13 

15 

17 

19 

22 


“27 

65 


S2 ”33 


35" "35" 
77 66 


-IT9 52* 

94 1D5 


"55 6*0' 

1D9 


PROCESS SYMBOL AB 

K£r-SET' VlOLATIOrJS HAVE BEEN DETECTETT" 

NO USE VIOLATIONS HAVE BEEN DETECTED 

SET SEGMENTS/ 3 “ ' — 

USE SEGMENTS/ 3 5 


PROCESS SYMBOL ANUH 

^ATPiUM IS* SET — irrn“HEr"FaLL“GWING~SEGMETVTS- BUT'-NEVER TJSEtT- 

73 

process’ symbol ARl 


NO USE VIOLATIONS HAVE SEEN DETECTED 

"5ET~SEGHENTS/ 58 94 

USE SEGMENTS/ 9C 


ROCESS SYMBOL AR2 
TTCnS Er in OtTA TI CNS-TfAVE—SrETr-tJETECTEir 
NO USE VIOLATIONS HAVE BEEN DETECTED 

■SET SEGMENTS/ BS S9 '* 

USE SEGMENTS/ 93 94 


ROCESS SYMBOL AR3 
-NO -S ET-VratAT I ONS-RA VE“BEEir-0*ETECT E0‘ 
NO USE VIOLATIONS HAVE BEEN DETECTED 

-SET SEGMENTS/ 58 77 

USE SEGMENTS/ 73 


PROCESS SYMBOL AR4 

N 0-SET' -VTCrL ATTTTNS-'HAVr “EEEN“DETErTEO“ 

NO USE VIOLATIONS HAVE BEEN DETECTED 
”* SET SEGMENTS/ 5R 77 

USE SEGMENTS/ 73 

P R 0 C E S $ S V M B 0 L B 

. 0- S ET— V 1 0 L A 7 1 0 N S H A V E“ 3 E E W- 0 E T E C T E D - 

NO USE VIOLATIONS HAVE b£EN DETECTED 
SET SEGMENTS/ 71 


■poo^ 


t 


I 


i -P R 0 C E S S SYMBOL BB — . j 

MO SET VIOLATIONS HAVE BEEN DETECTED 

i ^WO USE- VIOLATIONS HAVE BEEN DETECTED — ^ - -^1 

; SET SEGMENTS/ 109 ' 

? USE SEGMENTS - / - aO - O ^ ^ 

i p- R 0 -e-E— s- 5 - — s-y-m-b-o-l — e- ^ i- 

! NO SET VIOLATIONS HAVE BEEN DETECTED 

I NO- USE VIOLA CIONS HAVE BEEN DETECTED — i-r 

SET, SEGMENTS/ 31 42 71 

40 44 4-7 — : 7te irs ^ ~ 

; P R 0 C E S S S- Y -- M-8 -0- tr — CC H" 

; NO SET VIOLATIONS HAVE BEEN DETECTED . U 

: Ntmrs E~ VI OL A TIONS KAVE BE eTJ-OET-ECT EO ^ ^ — — 

SET SEGMENTS/ 94 IDS 1D9 - 

: USE SEGMENTS'/ — 1U5' ib9 1 ^ j" 

' — P --R 0“tr“E"‘ S" -S S’ ' Y- M • B“0 V CS — 

NO SET VIOLATIONS HAVE SEEN DETECTED ^ 1 

i — N-O-USE -VIOLATIONS- HAVE BEETJ-DETTCTED 

i SET SEGMENTS/ 34 

i U SE SEGMENT ' S - / 50 — 40 4^ — " ' r 

I . : \ 

; r“R”TT X E S' S' S-^r-M-g— 0~t Ct ^ 

NO SET VIOLATIONS HAVE BEEN DETECTED -) 

lOL A TrONS-RA V£ - B E E N-^OE-T^-C-J ED"- ~ ~ — — l~ 

SET SEGMENTS/ 71 99 IDS 109 

■ d-SE~SE-014E-NT$7 T l" T BS — rtT9 — — TT 

; . . . ■ • ■! 

p-R— 0- C"E “S^-S -S— 0 ~t — X2 ^ ^ ^ 

NO SET VIOLATIONS HAVE BEEN DETECTED 

” — NO-U S E - V lOL A T IONS HAVE" B EE N-DE-TEC-TE 0“ “' t'- 

SET SEGMENTS/: 99 1D9 - ' ll 

— iJSE*'TEt3MtrRrs-/— itrs— itr9 — — — — 

- P-R 0 C ESS - -S-Y H B 0 L D — 

NO SET VIOLATIONS HAVE BEEN DETECTED ’■* 

NO USE VIOLATIONS HAVE BEEN DETECTED • IT 

SET SEGMENTS/ 27 , | 

ersT^rG-MET i t sv r o? ^ — — - 

: . ! p^R-o c E "S" - -S "Y- -M "S- 0 "L ' ' -DEtT"' ^ — — — ^ ^ H 

NO SET VIOLATIONS HAVE BEEN DETECTED 

^ NO--USE - VIOLATIONS HAVE BEEN-OETECTED ^ — 

SET SEGMENTS/ 46 47 52 56 65 69 T1 

U5-E-S-£i3iTEiVT5y— 49 52 5t> - frS 6-9 — — ■ r 


i 


■"“P R 0 C E S”S S Y M B' 0 L -DELTA 

NO SET VIOLATIONS have BEEN DETECTED 

NO USE VIOLATIONS HAVE BEEN -OETECTECr'^ 

SET SEGMENTS/ 46 47 

US E~S E-GH EiVTS*/" — 6 O— T/S 


-""P R O C E S-S* ""S Y M B"0^I7^T!EN0M 





' i ■ 




fl 


^^0 JSE VIOLATIONS HAVE SEEN DETECTED 

SET SEGM E N T^ . 7 1 

USE SES^dENTS/ 71 73 8 1 82 


SYMBOL 


NO JSE VIOLATIONS HAVE dttN DETs.CTED 


USE SEGMENTS/ ID 12 


P a 0 C E 5 S S y M 3 0 L EIGVEC 


NO USE VIOLATIONS HAVE BEEN DETECTED 

ES MENr s y 135. 9 

USE SEGMENTS/ 1D5 135 115 


PROCESS SYMBOL GREAT 


NO JSE VIOLATIONS HAVE BEEN DETECTED 

_SiX_S£GMENTS/ 2 j 

USE SEGMENTS/ 3 

a 0 C E S S S Y H 3 0 L I 
F T V T n I 


NO JSE VIOLATIONS HAVE BEEN DETECTEU 


100 114 


i 32 33 . 


35 i 

19 

6D 1D2 113 115 






PROCESS SYMBOL UK 

NO SET VI OLA TION S HAVE BE EN , QETEC 1E_Q_ 

NO JSE VIOLATIONS HAVE BEEN DETECTED 

■ __,SET SEGM E. NJ.S y„. . 4 4 & 9 

USE SEGMENTS/ 52 55 65 S9 


PROCESS S Y M 3 0 L INT 

NJL_SE_T_V.rOJ-A.TJL ON S_ HO EL-SLEH.. DLLE CJLO 

NO JSE VIOLATIONS HAVE BEEN DETECTED 

—Srt ..S.E G HE lN T.S L _.-7__ra£UJ19._ - 

USE SEGMENTS/ IDS 1 J9 


PROCE SS SYMBOL 
__!iO_S£r._V.lJQLA.II ONS-HA.V.F BE 

NO JSE VIOLATIONS HAVE BEEN DET 

S.E1_SE5 MINT S/. 29. 

USE SEGMENTS/ 237 


r_R-_D. 


Y_H_3_ 



















hJO J5E VIOLATIONS HAVE 3£EN DETECTED 

SJEX_S£J5-HE-N.T.S/ 9S 

USE SEGMENTS/ 99 1D6 110 


SYMBOL 


NO USE VIOLATIONS HAVE BEEN DETECTED 

S E_T_ SE GH EATS/ , .. I . 

USE SEGMENTS/ 2 


PROCESS SYMBOL 


NO JSE VIOLATIONS HAVE BEEN DETECTED 


USE SEGMENTS/ 2 79 


22 35 


NO SET VIOLATIONS HAVE BEEN DETECTED 
N O JSE. _VI0 LA_TJ:O_N.S..HAVEL^^N_D£I.E.CX.Ei:L 
SET SEGMENTS/ 35 


NO SET VIOLATIONS HAVE BEEN DETECTED 
NO JSF VTO ! ATTONLS H AV_^R£L E N_D £ LEUXEiL. 
SET SEGMENTS/ 35 


NO SET VIOLATIONS HAVE BEEN DETECTED 


SET SEGMENTS/ 


PROCESS SYMBOL L 


NO SET VIOLATIONS HAVE BEEN DETECTED 


^ 0 C E S S SYMBOL MAX 

.^D_SZ-1_JLI0 LA.U Q_N 5 H A.V E_J E Ell -D ET £ ci£il 
NO JSE VIOLATIONS HAVE BEEN DETECTED 

- S £ T_ .S.E e M£ NTS/ ... 2 5 _ 

JSE SEGMENTS/ 7 9 ID 11 12 


I 0 C E S S SYMBOL N 
- -VO ..SiLI_itl CLLA..II.0 NS.._HAVil_3rEN.B£.TB.C T £ D 














- . * 








an 

/ 


VX)__.)SF UTm.ATTO>JS 

HAVE 

B=-FN 

OF 

TETTF 

n 




SET SEGMENTS/ 1 

52 

56 

65 

59 

77 

9^ 



.J.SE--S£-Gi1EJjIS /■„ JL 

3 . 

. ,9 

11 

13 

15 

19 

21 

25 . _ 

26 

23 

31 

32 

33 

3M 

35 

43 

53 

5,2_ 


5 5 .. 

59 

..5 3 

63 

65 

66 

67 .. .. 

69 

73 

71 

77 

B6 

9^ 






P^JOCESS SYMB OL NM 

M IS SO I Kj__TH£. .FOLLOW* I NG SEGMENTS 3UT NEVEiL.JSED , 


■ 1. 

p 

ROCESS SYMBOL NMAX 

.NO SET vrm ATTOMS MAV«^ B“FNJ nFTrrTrn 

■ 





NO USE VIOLATIONS HAVE BEEN DETECTED 
SET SEGM-NTS/ t S? 65 69 77 

5iL 

1 35 

139 



USE SEGMt^NTS/ 5? 55 55 69 77 94 

JL3-5_ 

139 



p 

R n r F S S S Y M A 0 1 NN 






NO SET VIOLATIONS HAVE BEEN DETECTED 
NT) JS.^VIOLATlONS HAVE.3EEN OFT - CJLED 






SET SEGMENTS/ 1 135 139 

JJ^E SEGMENTS/ 9 LDn 1 ni 1 3 5 1 J 9 il3^J.iL 

115 

C vi ■ . ; 


p 

R 0 C E S S S Y M 3 D L NUM 

NO Sg^T VTOI ATT QNS HAVE 3FFN D E.TfLC TZD 



i 

f 



NO USE VIOLATIONS HAVE BEEN DETECTED 
SFT SFGM'^NT^/ 9B 135 139 



[ 



USE SEGMENTS/ 99 135 136 139 MD 



. 1 

!j ; 

p 

ROCESS S Y M 3 0 L NVEC 

NO SFT VTOI ATTOMS HAVE 3FEN DETECTED 



! 

■i 


NO USE VIOLATIONS HAVE BEEN DETECTED 
SFT SEGM<^NTS/ 1 ) 35 139 



■ 'i 

r^7 

h r. 

it ! 


USE SEGMENTS/ 95 lu5 135 139 IID 



' ■ ■ i 


p 

ROC E S S S Y M 3 OL N2I 

NO SET VTOLATTONS HAVE BEEN DETECTED 




U-K 


NO USE VIOLATIONS HAVE BEEN DETECTED 
SET SEG.MFNISy 6^ 




_ USE SEGMENTS/ 63 

w.l ■■ 

p 

RO CE SS S YMBOL R 

NO SFT VTOIATTONS HAVE BEEN DET^ETETiLL 




V. 


NO USE VIOLATIONS HAVE BEEN DETECTED 
SET SEGMENTS/ 31 3 9 






USE SEGMENTS/ 323744 46 




ii : 

'W-. w 

p 

ROCESS SYMBOL RHO 

NO S=-T VTOLATIO.NS HAVE. 3EE.N DETECTED 




r ■ ■ 


NO USE VIOLATIONS HAVE bEEN DETECTED 
SET SEGMENTS/ 75 76. 77.. .. 





■Vi 


USE SEGMENTS/ 77 



' p 

■ ■ ji.v ■ 

. K ■ ' 

p 

ROCESS SYMBOL RS 

NO SET._..VIQLATIONS‘ HAVE BEEN D:_TEGTE3 


: . : .. 

HA. 









: 




SET SEG^^E^]TS/ 34 


MO SET VIOLATIOMS HAVE 3EEN DETECTED 


SET SEGMENTS/ 73 B 
USE SEGMENTS/ 73 7 



FIELD AT A 


















P fi T H . n U M B E R 1 


HUMBER OF BRPr«CHES IN NETMOPK = 157 

NUMBER OF I-PPMCHEe PREVIPUrLV TpfiVEPSED = 5 

HUMBER OF f^EM BRANCHED TPflVEPSED B'.^ CUPFEf^T PPTH = 145 

TDTfiL NUMBER DF I'ERNfMES TR^VERJED = 150 

CTDTRL JS TRflVERJED>.'* TOTRL BRPNi:Hr::> PEPCENTfinE = ^5 

vNEW BRRHCH>- >. TOTRL BRRNCH> PERCEMTRGE = 9£ 

□PTIMRL PRTH OF SEGMENT::- 


1 

- £ 

- 

-71 

>w> 

“ 

4 

- 

to 

- 3 

- 5 

•- 

6 

- 

7 

- 

0 

- 

13 

- 14 

- 

13 

- 

13 

- 

15 

- 16 

- 17 

- 

16 

- 

1? 

- 

13 

- 

19 

- £0 

- 

£3 

- 

19 

- 

£1 ' 

— C.‘y 

- 21 

- 

OC' 



- 

£4 

~ 

c 

c . 


“ 

4 

- 

6 

-- 

-y 
. > 

— 9 

- 10 

" 

9 

- 

10 

- 

U 

- 

13 

- 11 

- 

12 

- 

13 

- 

14 

- 13 

- 19 

- 

£0 

- 

Cl' 3 

- 

£4 

— 


- £6 

~ 

ti. 1 

- 

26 

- 

*D'7 

U i 

- £5 

— 2*6 

- 

C 1' 

- 

2 61 


£9 

- 

30 

- £9 

~ 

50 

- 

1— 


£9 

-30 

- 31 

- 


- 

00 

■- 

O’lZ 



- 34 

- 

35 

- 

36 

- 

35 

- :Sj6 

P 

- 


■- 

4 0 

- 

41 

- 

43 

“ 34 

- 

35 

- 

36 

- 

37* 

- 39 

-40 

- 

42 

■- 

43 

- 

44 

- 

45 

— 47 

- 

43 

- 

49 

- 

43 

- 49 

- 50 

- 

51 

- 

54 

- 

55 

- 

53 


_ 

60 

- 

61 

- 

6:3 

- 64 

- 67 

-- 

63 

-■ 

71 

- 

r ' d 

- 

79 

- SO 

- 

S£ 

- 


- 

35 

- 86 

” y 

- 

39 

- 

90 

- 

91 


93 

- 94 

- 

95 

- 

59 

- 

60 

- 6£ 

- 60 

- 

62 

- 

63 

- 

65 

- 

66 

- 54 

- 

55 

- 

TTO 

- 

59 

^ 60 

- 61 

- 

6S; 

- 

6*4 

- 

67 

- 

6S 

- 71 


1 ' y 

- 

74 

- 

76 

“ r 1 ■ 

. — «i-i 

4 

- 

59 

- 

60 

- 

61 

- 

G3 

- 64 

- 

67 

- 

63 

- 

71 

- 73 

- 75 

- 

P‘ »' 

- 

■rrt'; 
1 *J 

- 

59 


& 0 

“ 61 

- 

G*:3 

- 

64 

*- 

67 

— 6y 

“ 71 


?*£ 


79 

- 

31 

- 

y5 

- 36 

- 

c- 

- 

90 

- 

9£ 

^ 94 

— SS5 

- 

59 

- 

60 

- 

61 

- 

63 

- ^4 

- 

67 

- 

63 

- 

71 

.1 l_ 

- 79 

- 

so 

- 

S£ 

„ 

P4 


se. 

“ 33 

- 

90 

■- 

92 

- 

94 

— 95 

- 59 

- 

60 

- 

61 

- 

6‘3 

■- 

65 

“ 66 

- 

54 

" 

56 

- 

5? 

- 96 

“ 90 


99 

- 

1 00 

- 

1 01 

- 

1 02 

-1 01 

- 

1 02 

- 

1 00 

- 

101 

-102 

-103 

- 

1 04 

- 

1 09 

- 

110 

- 

112 

— 99 


100 

- 

101 

- 

I0£ 

-103 

-105 

- 

106 

-- 

1 03 

- 

'99 

■- 

100 

“101 

- 

102 

- 

1 03 


105 

-106 

-1 07 

- 

113 

- 

114 

- 

1 15 

- 

114 

-115 

- 

3 16 















P fl T H N U M E E R £ 


HUMBER OF PPRHCHES IN NET^iDPK - 157 

HUMI:EP OF BPflNCHE:: PPEVIOU'LV TRRV-'EP::EIi = 150 

NUMBER OF NEM EPRHCHE;- TPRVEP::Eri EV CURPEHT PRTH = 7 

TOTPL HUMBER OF Pr RUCHE:; TpPVEPCEIi 157 
CTOTRL if TPRVEP:S[n:i’>- r TOTRL BPRriCHFS::* FF.PCEHTRGE ~ 100 

aiEU EPRHCH > TOTPL EPRNCH> PERCENTRGE = 4 

OPTIMAL PRTH OF :IEGMEhTS - - 


1 

— 0 

,1- 

- 3 

- 4 

— 6 

-51 

1 

_ to 

— 1 ’•! 

- 14 

- 13 

19 

- £0 

^ liC-i 

- £4 

- £5 

- £6 

- £7 

- 23 

— 

- :3 0 

31 

*” OC. 

’ yy 

- 34 

- 35 

- :-;6 

“ -.i'f 

- ■:3S 

- 40 

- 41 

43 

- 44 

— 46' 

- 43 

“ 49 

-50 

-Ju, 

— 5:;! 

- 96 

- 93 

99 

-100 

-UTl 

- 1 02 

-1 03 

-104 

-1 09 

-no 

-111 

-113 

,14 

“115 

-1 16 

- 








IF RLL MENT t.lELL p ‘COUP PATHS RPE COMPLETEB - IF ERRORS 
OCCUPPEDv FIN RHP CALL RH RTBG f-ROGRRMMFP - VDU CRH PESTfipT LRTEF 
YOU APE PEPPY TO rPOrFEn MITH THE REHERPTIDH OF riTTR. 

PESPOHD HI TH : ;VRPD .PRTRGEH 


OBIGIHAL PAGS Ta 

O^POORQuS 



P R T H H U M B F P 1 


1 

- £ 


- 

4 

- 


- 


- 

5 

- 

t 

- 

1' 

- 

6! 

— ■ 

13 

- 14 

- 13 

* 

13 

-- 

15 

- 

16 

- 

17 

.. 

16 

_ 

17 

- 

IS 

- 

19 

- 30 


- 

19 

- 

£ 1 

- 

t^£ 

- 

£1 

- 

C.C 

- 

c. z* 

- 

£4 

- 

e 

M J 

- 4 

- 

6 

- 

T' 

- 

9 

- 

1 0 

- 


- 

10 

- 

11 

- 

1£ 

- 11 

- 1£ 

- 

13 

*- 

14 

- 

IS 

- 

19 

- 

so 

- 

d-z* 

- 

£4 

- 

£5 

“ £6 

- £7 

- 

Se- 

- 

C* ( 

- 

£5 

- 

£6 

- 

C 1 

- 

£8 

- 

£9 

- 

30 

- £9 

- 30 

- 

as 

- 

£9 

- 

30 

- 

31 

- 


- 

33^ 

- 

".r. 

- 

33 

- 34 

- 35 

- 

36 

- 


- 

36 

- 

"“fT* 

- 

3B 

- 

40 

- 

41 

— 

43 

- 34 

- 35 

- 

36 

- 

37 

~ 

3! 9 

- 

40 

- 

4S 

- 

43 

- 

44 

- 

45 

- 47 

- 43 

- 

49 

- 

48 

- 

49 

- 

50 

-- 

51 

- 

54 

- 

55 

- 

5S 

- 59 

— 60 

- 

61 


63 

- 

6*4- 

- 

6*7 


c*c* 

- 

71 

- 

7£ 

- 

?9 

- 30 

— 3£ 

— 

S3 

- 

85 

- 

S6 

- 

. or» 

O 1 

- 

?:'■!* 

- 

90 

- 

91 

- 

93 

- 94 

- 95 

- 

59 

- 

60 

- 

6£ 

“ 

60 

- 

&S 

- 

63 

- 

65 

- 

66 

- 54 

- 55 

- 

58 

- 

5^ 


6 0 

- 

61 

_ 

63 

- 

64 

- 

67 

- 

63 

- 71 

“ 73 


74 

- 

76 

“ 

~7~? 
i 1 

- 


- 

59 

- 

60 

- 

6 1 

- 

63 

- 64 

- 67 

- 

68 

- 

71 

- 

r ^ 

- 

"JC 

1 

- 

77 

“ 

I*" C? 

- 

59 

- 

60 

- 61 

- 63 

- 

6>4 


67 

- 


- 

71 

- 

£ 

- 

79 

- 

81 

- 

35 

- 36 

WS 

- 

90 

- 

9£ 

- 

94 

- 

95 

- 

59 


60 

— 

61 

- 

63 

- 64 

- 6? 

- 

68 

- 

i 

< i 

- 

?£ 

- 

79 

- 

SO 

- 


- 

84 

- 

36 

^ c*c* 

- 90 

- 

9£ 

- 

94 


95 

- 

53* 

■- 

60 

- 

61 

- 

6-3 

- 

65 

” 66 

- 54 

- 

56 

- 

1 

- 

96 

“ 

98 

- 

99 

“ 

100 

- 

101 

- 

1 0£ 

-101 

-1 0? 

- 

1 0 0 

- 

1 'Jl 

- 

10£ 

- 

1 03 

- 

104 

- 

1 09 

" 

1 1 0 

- 

1 1£ 

- 99 

-1 00 

- 

101 

- 

1 0£ 

“ 

1 03 

- 

105 

- 

1 06 

- 

1 08 

- 

99 

- 

1 00 
114 

-101 

-115 

- i 0£ 
-116 


1 03 

— 

105 

— 

106 

— 

1 07 

— 

113 


114 

“ 

H5 



liRRHCH E:>‘PF'E;:rTaH:i PHICH RFFECT Ei^FCUTIDN 



BRRHCH EXPRES S I DM 

DRERT-.GE.RB 

I-N 

GRERT.GE.fiB 

r-M 

MRX.EQ.Kl 
Rfi j J> .EC'.Ct, 

I'H 

R'IjJ^.EQ.O. 

ri-M 

M-N 

I~M 

R'. M i< . ED . 0 ^ 
f‘1-M 

RCHjJ"- .eq.o. 

I-N 

r-H 

M-'N 

J-K 

GRERT.GE.RB 

I-N 

NRX . ED . I-. 1 

L-N 

L-fl 

L-N 

L-N 

RCI >J> .EQ.D. 

I- N 

RV.M * J.' .ED . 0 . 

II- N 
J-K 
J-N 


CONDI TIDN 
♦+«++++++ 
TRUE 
<=ZEPO 
FRLCE 

> ZERO 
TRUE 
TRUE 
<=ZERD 
FRLSE 
<=ZERO 

> ZERO 

> ZERO 
TRUE 
-■=ZERO 
FRLSE 
<=ZERD 

> ZERO 

> ZERO 
<-ZERO 
TRUE 

^ ZERO 
FRLSE 
<=ZERP 
'> ZERO 
<=ZERD 

> ZERO 
TRUE 

> ZERO 
TRUE 

> ZFPD 
S ZERO 
<=ZERO 




J~N 

> 2EPD 

S.I-M 

<=2ERD 

J-M 

> 2EPD 


> EERO 

J-L 

<=ZERD 

>L 

> ZERO 

CI-H ' 

<=ZERD 

J“L 

> ZERO 

&I-N 

> ZERO 

i-r-f 

<=ZEPD 

i-K 

> ZERO 

J-M 

<=ZEPD 

J-M 

> ZERO 

RS,LE.P 

TRUE 

CS.LE.C 

TRUE 

I-H 

<-ZERD 

J-M 

> ZERO 

RS.LE.R 

FALSE 

CS.LE.C 

FALSE 

I“H 

> ZERO 

R.GE.C 

TRUE 

i-r-i 

<=ZERD 

I-H 

> ZERO 

H.ME.l 

TRUE 

M.HE.c' 

TRUE 

>N£I-l) >.LT.riELTfi 

TRUE 

L.ME.H 

TRUE 

tX-M+i.*- .ME.O 

TRUE 

msc.GE.o. 

TRUE 

E . <5E , 0 , 

TRUE 

Rl.ME.O. 

TRUE 

ABS •: R ( M 1 H > -R 1 > . 6E . RES r^ > -P 

TRUE 

fiPl .HE. 0. 

TRUE 

RES <fi ! i£ I » ME I - 1 . L T , DELTR 

FRLSE 

I-M 

<=ZEPO 

RES<R'-Hc‘I !.M£I-1>:'.LT.DELTR 

FRLSF 

i-n 

> ZERO 

L.ME.M 

FALSE 

M.ME.E 

TRUE 

RES '■ R ■- ME I » ME I - 1 .0 . LT . EELTR 

TRUE 

L.ME.H 

TRUE 

<L-M+1 :• .HE.O 

TRUE 

nisc.GE.o, 

FALSE 

riEMon .ME . t:i . 

TRUE 

RES'. R - r<E I vME I - 1 > '< . LT . ICLTfi 

TRUE 

L.ME.M 

TRUE 

■;L“M+1 > .ME. n 

TRUE 

riicc jSE.o. 

FALSE 

riEMDM.HR .Cf. 

FALSE 

RES-:R* ME I .MEI-1 :■ • .LT .EELTR 

TRUE 

L.ME.M 

TRUE 

CL-fHl ;> .ME.pj 

TRUE 

E J SC . i‘*E , ill , 

TRUE 

E.RE.O. 

FALSE 

n^s5*fl=^a•^ 4f>-Pl >\GE 

FRL:‘E 

RRl .ME .CI. 

FALSE 

RES fi ^ ME I - ME I - 1 V. L T . EELTR 

TRUE 

L.ME.Ii 

TRUE 

a-ff+r^ .ME.i:i 

TRUE 

nisc .6E.i:<. ' 

TRUE 

E.6E.0. 

TRUE 

PI. ME. Cl. 

KAL : E 

RE.: * H- H -M '-R 1 > .EE. RE' - fl* M vrf •-P 

FALSE 


BEM vB' fll'I > J .LT.ICLTfl 

L.r^b;.f^ 

H.HE.c* 

MVEC .EO . 0 
J^-NH 

J-NH 1 

j-Mn 
!i: r-nH 
CS.HE.D. 

MVEC. EC*. MUM 

J-Hli 

Ctl-HM 

CE.NE.O. t 

MVEC.EO.MUM 

J-MM 

C,I-NM 

C2.ME.Ci. 

MVEC. EC. MUM 

I-MM 

I-MM 


FRLCE 

TRUE 

FBLCE 

FBLCE 

FALSE 

<=2EPtI 

> ZERO 
<=ZERD 

> ZERO 

> ZERO 
TRUE 
FfiLSE 

> ZERP 

> ZERO 
FALSE 
FALSE 

> ZERO 

> ZERO 
FALSE 
TRUE 
<=ZEPO 

> ZERO 


wi i I 


1 4^^^ p 

R T 

H M 

U M 

B E R 2 





I-, \l 

c. 

- 3 - 

4 

- 6 - 7 

- © 

- 13 

-14-13- 

■ “ j 

19 

- 20 

lL*-» 

c*4 

- 25 - 26 

_ -2r“> 

iZl 

“ llIvTr 

-29-30- 

* 

1 SI 

— 32 

_ O'!* _ 

34 

- 35. - 36 

r^l 

O f 

**• oc* 

- 40 - 41 - 

rr 1 

[ ■ 43 

- 44 

~ 4b “ 

4S 

- 49 - 50 

- 52 

- 53 

- 96 - 93 - 


j 99 

1 114 

-100 

-115 

-ICil - 
-116 - 

10c- 

-103 -104 

-1 09 

-110 

-111 -113 - 

' “ ! 

1 

4 


+ EFANCH ENT-'RLSSIUHS WHICH AFFECT EriECLITIOM 


BPAMCH F.:^PRESS1DM 

■f + ■<>•* 4- + ■♦■V- + 

GREAT. iSE.AB 
I-N 

MAI^.EO.Kl 
RCI jJ> .EQ.i:i. 

I-M 

RCMjJ> .EQ.O. 

M-M 

j~y 

J-M 

J-’L 

&I-M 

I-N 

J-H 

PS.LE.R 

CS.LE.C 

I-H 

R.GE.C 

I-K 

M :ME .1 

MVEC. EC*. 0 

J-MM 

C:I-MH 

C2.ME.Ci. 

MVEC.EO.MUM 

I-MM 


COMIflTIOM 

++++++ 

TRUE 

> ZERO 
TRUE 
TRUE 

> ZERO 
TRUE 

■> ZERO 

> ZERO 

> ZERO 

> ZERO 

> ZERO 

> ZERO 

> ZERO 

> ZERO 
TRUE 
TRUE 

> ZERO 
FALSE 

> ZERO 
FALSE 
FALSE 

> ZERO 

> ZERO . 
TRUE 
TRUE 

> ZERO 


+4+SKLTDM EMTi OF JOB+++ 


[ 


:An»ONLY MODE 

"^SE UPPER ASSUMED 

3 m.01-06/D3-19 :05-tD, J 


fEC A 

OTHER INPUT VARIABLES 

IIGVEC Z 8B ABS CC SS 

"►^VARIABLES WHICH ARE COHPUTCu 

C JI A NMAX Cl SHALL HN 



MAX = I 

•2~C-0'ttt‘I1WE 

INTIJ)=MAX 

I F- t H A X . E Q • K 1 ) GO TO "5 “ 

n D06L=J,N 

E-A tKl,L> ^ 


'6— A-t-HAXTL“>-l 
D07L=1,N 
- ■ E-A iLtKl ) 


-- — r A(L,MAX}=E ■ 

5 DQSI=:K2,H 

— — lT^T7rnT^i~r ro- ; 0 t-q-s- 

ATI, J)=-A (It J)/A(Ki, JJ 
•— DOUH-Kl,H ^ - 

11 A(I,Hl-ATI,HJ-J-AtI,J)>!fA{Kl,H) 

■*■8 CONTINUE 

DO 20D0 H"K2,N 


ir DU lU ^uuu 

ID DO 2D01 1=1 ,N 

:DD 1 A-( I tK 1 ) = A { I i K 1 ) - A { I , H ) sC'A ( H , J )— 




f 


3x: 


1 


^-TS- 

24 

~25 

26 

-ZT 

28 

- 

— 2000 corn rircTE 

1 CONTINUE j 

■ • --DO 105 I = 1»N ' 

DO 105 J=1tN _ 

lUr D{ItJ)=A(I, J) — I 

DO 10 6 1=3 tN ' 

29 


tr:rr=2 

DO 106 J=1,L J 

“3cr 
31 
■ '-31 
31 

- 

lOSAlXyiJl— O.D . 1 ., 

K1=N+1 

• - -- RrO.D ■ • - - ■ -- 

C=0.0 

' '32 
32 


UU5^I-ljN 

R=R+ ABS( A{1, I ) J _ 

i 34 


3^ C— C-*- ABSCACIyNM 

D034I=2rN ^ 

i . . ■ 34' 

1 34 


RS — U.D 

CS=D.O \ 

t ■■ 34 - 

1 35 


_ L=i-i ^ ^ ^ ^ ^ 

D035J=L,N 

1 ' -^35 


RS— RS+.ABS(A(ItJJ) 
K1J=K1-J 

i ~35" 

i 36 


K 1 1 =K 1 “I 

35 CS=CS+ ABS(A (KlJ,KiIJ J 

1" 39 

T3 — 

IF — tFTS'iLErR-) 60“^rQ“"t36 — 

37 R=RS .-J 

j !TQ~ 

1 ^ 

-tj-l — 

36 IF (CS*LE«.C)“ GO TO '34* " 

44 C=CS 

i — 

t 


34“C0MTINU£ ' - ' ■ ' : l 

* 

j ■ 44 ' 

45 

IF lR.6E.Ci GO TO—S^ -t 

■ . a 

i. . 47 


54 DELTA=C#1.QE-11 

! 48 




DEL=G/I7. 1829 ' " 

153 DO 107 I=liN , 

j IT9" 

[ '53 

51 

•~ltJ'T-'A'MTl')-/FMTl*r-DEL - 
55 IF (N,NE.i) GO TO 4b 

0 . -i. 


56 

* — 5^ 


55 


^a IF (M.NE.2I GO TO 80 

i|9 CALL CALCEVC A,NMAXTDELtVECtlJK,N,2J 
GQ"^ 0- 7 €r- — 


58 
— 5S~ 
58 

59- 
60 
Q-" 
tvD 
62 
63 
-65- 
66 
~ — "frfr" 


8 D ARl=OpQ 
— -A R 3=0.0 ^ 

AR4=D.D 

61 L=N 

D056 I=2tN 


61 

64 


IF{ AB5(AIN2I,N2I“1)).LT.DELTA)G0 TO 57 

56 L=L-1 

57 IF (L .NE. N) BO TO 59 

58 CALL CALCEVUtNMAX,LiELtVEC,IJK,N,l) 

N = N-1 

6 0 ' T 0- -4 8 — — — 


67 


68 


59 IF ttL-N+1 } .NE.Ql GO TO 75 


ISA 


[ , ! 


^ 


1 

J 





I 


1 1} 


75 

i 71 


72 


nr 

;i ^ 

73 

74 

. 


C1=A<N-1,N-1J-A(NtN) 

&iSCrCl«Cl + 4,D5«fA(N,N‘-l J^«=AtW-l ,N> - 
IF (DISC.GE.O.) GO 70 63 


0EN0M = AR3>^‘AR3•^AR^*AR4 - 

IF (DENOM.NE.O*) GO TO 20D 


— 7*t 

— 

76 

200 

“B8-7o-?oa ^ ^ :: 

RHO=C 




i • 

77 

203 

AR3-R1 





77 

- — ffr 


CALL COMPITt A tNHAXtLtNtRHO , SIGMA) 
-00“-TO— 67 





79 

-BT 

81 

B2 

-«r 

94 

~sB- 

86 


8D 


S3 


63 IF (B ..GE.D* J GO TO 6B 

rs-'-scRTf-Drscrr ) — — 

BO TO 66 

"6-5" RI-. 5 * CB +■ S'Q RTt OT'SC T 1 — 

IF (Rl.NE.O. J GO TO 66 

= ^ ^ ^ ^ — 

GO TO 84 

-B6r-R2:rc/Rl : — — 

84 IF( ABS( A S N,N )-Rl } .BE. AB S t A ( N ,N ) -R2 ) 1 GO TO 68 


S8 

9Q 


87 


91 


GO TO 69 



69 IF IAR1.NE,Q.1 BO TO 71 


92 

94 


95 

'96- 

'^8 ■ 
98 


97' 


GO TO 73 

-7"l— SHIFTrAR2 ^ ^ 

73 AR1TAR2 

OAftr-RETrtr m - A - f ^ ^^rA X t L T in S H ’lf^-Ti- CC TS'S-t- 

GO TO 61 

-76“ IF TNVEC.EO.O) 60- TO '600 — 


NUHrO 

Jl=l 


99 

—99^ 

99 

—100 
101 
— 102“ 
133 
”105 
106 
- 106 
136 
’^709- 
110 
-XI O' 


104 


513 Ci::VEC( JI I 

C2-VEC<JI + n 

NUM-NUH+1 

00 570 1=1tNN 

DO 570 J^lrNN 


IQT 


■570— A^I-rd-^-O-t-iT^tl — ^ — — 

IF tC2.NE*D.) GO TO 56i: 

— -CALL RVEC { A, NHAX t INT ,C1 ,5HALL »htN, NUHtEIGVECtNVECfCCTSS ) 
JI=JI+2 

IF(NVEC.EQ*NUM JGO TO 600 

GO TO 513 

-5-61“ cultr-xtt Vttt-tTfn r r^'TT C T-ftr^TOItA trtrrN N-flWK-f t: 1 07 ^ICytl V E CTCCf S 1 

JI=Jl+4 


111- IFtNVEC.EQ.NUM JGO TO 600 


19 A 


-ZTse>- 




i 



*** OTHER INPUT VARIABLES 
-E'lGVEC CC SS 2 - - “BB— 

VARIABLES WHICH ARE COMPUTED 

-t -JI A NMAX Cl 

VUH EIGVEC NVEC CC SS 


-SMALL - “WN 
BB J 


iflJ RS L C R K1 D M 

-7S ^rA7C (?R E A T — K2 K 

SKELETON LISTING OF THE CANDIDATE PATH FOR HSHAIN 
TEir^ SE(T"2*~ STATEHENr" ^ — “ 



2 CONTINUE 

INTi JJ=HAX 

IF (MAX.EQ-Kl) GO TO 5 


i-5- 

13 


-5"D0SI = K2 »N - --- 

IF (A (I, J) .EO.D. ) GO TO 8 


-8-CONTINUE 

DO 2000 M=K2,N 

" IF (A IM, J) .EQ.G. ) GO TO 20QQ 


2D0D CONTINUE 

“t-C-OMTINUE : 

DO 105 I=I»N 
- - DO 10 5 J = 1 ,N 

ID5 D( I, J)=A ( I, J > 

DO 106 I=3»N 
L-I-2 

“0 0- - 1 06—d L— 

106 All, J)-D.O 
K1=N+1 


2.0 A 




C-0*0 

- D033I=1,N 

R = R+ ABS(A(1,D) 
33 C=C+ ABS(A(I,Nn 
D03m-2tN 



561 CALL IMVEC t A,NMAX, INTjCl , C2 , S M ALL , NN , NU M , El G V EC , N VE C , CC. S 
IF (NVEC*EQ.NUM)GO TO 60D 2tBB) 


600 CONTINUE 


DO 20 1=1, NN 







tj m- 

^..UPPSR ASSUMED 
■ 14.Dl-G6/D4-m ;0Q-(U,1) 
IT 



SE3MENT 

NU'IBERS 


FORTRAN STATEMENTS 


. . 1 > c- n 1 ■ > j. f ■ 

SUBROUTINE CO MP I T ( A t NH AX , U t N » ^ HO , 5 IGM A ) 
DIMENSION AtNHAX.NMAX) 



M-N-1 

DO ..I.. : 


j 


BZ-A(I+1tI~1 ) 

IF ( I.EQ.M) GO ^JO_5_ 
B3 = A t r + 2,I-l} 

.! 5 ,a_TO 6 

83=0.0 



DO 10 K=itN 

IF ( 1 .£0 . M ) 6G TO i2..„. _____ 
11 C3 = E«(fl CI,K}+C1>:^A(I + 1,K>+C2^AI 
_.J^t.ijK}=A(r^K:)-3. . 

A { I + 1 T K ) = A 1 1 + 1 , K ) -C 1 «G 

f^JLI+Z ■;■■,..■ - 

GO TO 10 

IZl ( I , K } + C l^ A 1 1 + 1 j K J ) 

A { 1, K >=A { I , K ) -u 

A Cl + 1 , K ) = A t.I + 1 ,H ) - C1^G_,_: 

13 CONTINUE 

0 Q;,i q L.. 14 ^ 

13 A ( 1 »I-1 J =-lJ 

A ti+1 , i-i ) -o.n . . . 

IF (X.EO.M) UO TO 14 
lb A ( I +2 , 1-1 1 =n.n : . 1 . 

14 J=I+2 

IF fJ.LF.N l GO XO 17 

.It ,J = N . ■ . 

.1.7 00 la K::L5a. 

IF (I.EOpM) GO TO 20 


1 + 2 tKH 


500U 


23 A 







19 G = A I K , I £ K , 1+1 } +C2=«=A (K ,1 + 2 ) J 

A tK,I)=A IK,IJ-G , . , 

ACK,I+lJ=A{KtI + l)-Cl«^G 

A£K,I + 2J=AtK.I + 21-C2>;‘G . . .„ 

GO TO 18 . 

2D G“E»( A t K , I ) +Cl«fl (K ,1 + 1 ) ) 


ACKtD-AtKtD-G 

, _AtK,I+i) «A£K,I + 1)-C1^G_ 

18 CONTINUE 

J::I + 3 ... , . 

IF ( J. 6T.N ) GO TO 1 
RrF JleCP^icA f T + 


A ( 1+3, I )=-G ■ 

AXI+3,I+lJ.-.-Cl’}fG .. 

A (I + 3,I + 2] -A lI + 3,I + 2)'-C2=<'G 

^-CONTINUE ' 

RETURN 



NJN3ERS 


FORTRAN STATEMENTS 




2.4- A 










>'»-+STRTIC ERROR RNRLYSIS FOR ELEMEMT COMPIT^W 

♦♦♦CHECK FDR IHFItSITE LDDPS 

ND ItFIHlTE LDDPS HAVE BEEH DETECTEB 

+ ♦♦CHECK FDR UMREfiCHABL.E COI'E 

HD UflREfiCHRBLE CODE HRS EEEH DETECTED 

♦♦♦CHECK SETxIJSE OF IHTERHRL SYMBOLS 




HD VIDLRTIDHS HAVE DEEM DETECTED FDR THE FDLLUIJIH6 SVtIEDUS 
B1 B2 E3 Cl CE E E 

6 I J K M 


STATIC ERROR RHRLYS IS IS COMPLETE . 




Of POOB quality 





»j^CHE:C K_S_ETy,U$E UF INTtR.NAL 5YM&0LS 

P R PC E 5 5 SYMBOL B1 

NO SET VIOLATIONS HAVE BEEN DETECTED 
Mn ti<;r \/TmaTTaM<; ma\/f 


SET SEGMENTS/ 


iiiai 



.P_P_Q-C^.E_S . S. Y- tt- B. .0 L--B3; 

NQ SET VIOLATIONS HAVE BEEN DETECTED 



ff 0 C E S S S Y B 0 .. L„„ C.l__ 

NO SET VIOLATIONS HAVE BEEN DETECTED 
UCF WTni A TTnw 


SET SEGMENTS/ 14 


II eiaiiaviwgyj 


P -i^_CL ..E—S— S :--S— Y. , M —E— 0— I C2 — 

NO SET VIOLATIONS HAVE SEEN DETECTED 


SET SEGMENTS/ 14 
USE SEGMENTS/ 14 

17 ■ 30 ■ 35 


p ,R 0 c E.,s .5. .. s. y. 

M 3 0 L D 


NO SET VIOLATIONS 

HAVE SEEN DETECTED 



SET SEGMENTS/ 9 
USE SEGMENTS / 11 12 1.4. _ 22 


NO SET VIOLATIONS HAVE BEEN DETECTED 
NO USE VIOLATIONS HAV 


SET SEGMENTS/ 14 
USE SEGMENTS/ 3D 

JE.R 0 C E.^.S,.^ S Y 0 

NO SET V 1 0 L A TT 0 NS H A V E 3 E L N DE TE C T E D 
■■■ M O .US E VI OL AJ I n ,4 S-Jj A V F . aJ-L M... 1! F T F..C T F D 
SET SEGMENTS/ 17 IS 3D 31 35 

USE . S £ G M EiJ T S / -.. 1.7__ IB SO. 33 35 


Z6A 












p 

P 0 C E s S S Y 

.NO SET VIOLATIONS 

M P 0 L I 

-HAVE BEEN DETECTED . 1- 


NO USE VIOLATIONS 
sfomfmts/ 2 

HAVE BEEN DETECTED 



USE SEGMENTS/ 2 

25 

5 7 15 17 18 2D 22 24 

2830313335 


p 

ROCESS SY 

M B 0 L J 

j 

'i '• 


NO SET VIOLATIONS 
_,N0 USE VIOLATIONS 
SET SEGMENTS/ 25 

I1<;F tJFnMFWTF/ 2F 

HAVE BEEN DETECTED 

HAVE BEEf^j DETECTED 

27 33 

s 3 


c 

POr FF S FY 

M q n t SL - - 

.1 ■■ 


NO SET VIOLATIONS 
NO itSF UXOLAT'’‘QHS 

HAVE BEEN DETECTED 

KA-VE_3ELN DXTEXTED . ■ ' - - 

r 


SET SEGMENTS/ 15 
IISF FFOMi^NTS/ U_ 

zn ■ 

18 ia 31 ^ 



P._R . 0. C Z S S S Y 

NO SET VIOLATIONS 

NO USE VIOLATIONS 

SET SEGMENTS/ 1 
JSE se gm e nt s/ Z 


M a 0 L K 

HAVE BEEN DETECTEL 

HAVE. BEEN DETECTED 


15 


2? 


•3 











NUMBER OF BRANCHES IN HETUORK = 4S 
NUMBER OF BRANCHES PREVIOUStV TRAVERSED = 0 

NUMBER OF NEW BRANCHES TRAVERSED BY CURRENT PATH = 46 

TOTAL NUMBER OF BRANCHES TRAVERSED = 46 

CTOTAL - TRAVERSED TOTAL BRANCHES> PERCENTAGE = 93 

<NEW BRANCH TOTAL BRANCH? PERCENTAGE = 93 

OPTIMAL PATH OF SEGMENTS - - 


1 

- £ 

- 

4 

- •:» 

- 

10 - 

1£ - 

14 

- 15 - 17 

- 19 - 

15 

- 17 

- 

19 

- £0 

- 

£1 - 

£5 - 

£6 

- £3 - 30 

- 3S - 

23 

- 30 

- 

3£ 

“ 33 

- 

35 — 

36 — 

£ 

-3-5 

- 7 - 

9 

- 11 

. -! 

1£ 

- 14 

- 

15 - 

17 - 

19 

- £0 “ ££ 

- £4 - 

25 

“ £6 

- 

£S 

- 30 

- 


33 - 

34 

- 36 - £ 

- 3 - 

5 

- 6 

- 

S 

— '5 

- 

10 - 

1£ - 

14 

“ 15 - 15 

- IS - 

19 

-SO 

- 

£2 

- £3 

- 

£5 - 

£7 - 

£S 

- £9 - 31 

- 33 - 

33 

- 34 

— 

36 

- 37 

- 






P A T 

H 

N 

U M 

B E 

R 

2 






NUMBER OF BRANCHES IN NETWORK = 49 

NUMBER OF BRANCHES PREVIOUSLY TRAVERSED - 46 

NUMBER OF NEW BRANCHES TRAVERSED BY CURRENT PATH = 3 

TOTAL NUMBER OF BRANCHES TRAVERSED = 49 

(TOTAL if TRAVERSED? /(TOTAL BPANpSHES? PERCENTAGE = IDO 
(NEW BRANCH.)^- (TOTAL BRANCH) PERCENTAGE - 6 

OPTIMAL PATH OF SEGMENTS 

1 _ £ 4 _ 9 - 10 - 1£ - 13 " 36 - 3? - 










p 

A T 

H 

N 

u ti 

B 

E R 

1 



1 

- £ 

- 

4 

“ y 

- 

10 - 

IS - 14 - 15 - 

17 

- 19 

15 

- 17 

- 

19 

- 20 

- 

£1 - 

cc5 — — SS — 

30 

- 3£ 

2S 

- 30 

- 

32 

- 33 

-- 

35 - 

3G - £ - 3 - 


- 7 

9 

- 11 

- 

12 

- 14 

- 

15 - 

17 - 19 - £0 - 

££ 

- £4 

£5 

- SG 

- 

2S 

- 30 

- 

3£ - 

33 - 34 - 3G - 

£ 


5 

— 6 

■- 

8 

- 9 

- 

10 - 

is - 14 - 15 - 

IG 

- 13 

19 

- £0 


£2 

- £3 

_ 

£5 - 

£7 - £8 “ £9 - 

31 

- 3 £ 

33 

- 34 

■- 

56 

- 37 

- 






SRfiNCH EXPRESSIOHS MHICH fiFFECT EXECUTIQM 


CPNIilTinh 

FALSE 


BRflHCH EXPRESSION 
“l.ME.L 


B1 1.SE ,0^ 
B.EQ.O. 

I .EQ.M 
K”N 

I.E0.M 

K-N 

I . EQ.L 

J. LE.N 

I . EQ.M 
5<-J 
X.Eia.M 
K“J 

J. GT-N 
I-N 

I .NE -L 
I.EQ.M 
Bl.SE.O. 
B.EQ.O. 

I .EQ.hl 
K-N 

I. EQ.L 

I , EQ .N 

J. LE.N 

I. EQ.r'l ‘ 
K-J 

J. GT.N 

i-ri 

I ,NE.L 
I .EQ .M ■ 
B1 .GE.O. 
B.EQ.O. 
I.EQ.M 
K-H 

I. EQ.L 
I .EQiM 

J. LE.N 

I. EQ.M 
K-J 

J. GT.N 
I-M 


TRUE 

FALSE 

false 

<=ZERD 

FALSE 

> ZERO 
TRUE 
TRUE 

false 

<”ZERQ 

•FALSE 

> ZERO 

false 

<v=ZERP 

TRUE 

FALSE 

FALSE 

FALSE 

FALSE 

> ZERO 
FALSE 
FALSE 
TRUE 
FALSE 

> ZERO 
TRUE 

• OZERD 
TRUE 
TRUE 
TRUE 
FALSE 
TRUE 

> ZERO 
FALSE 
TRUE 
FALSE 
TRUE 

ZERO 

TRUE 

> ZERO 


P A T H HUM B E R £ 

l-“ £“ J — iO — i£“13 — 3G — 3 — 

+>♦ BRANCH EXPRESS IONS WHICH AFFECT EXECUTION 


BRANCH EXPRE3SIDN. CONBITIOH 

I.NE.L FALSE 

BL.GE.O. . TRUE 

B.EQ.0. TRUE 

I-M > ZERO 


IKPUT VaRIABiES iftHICH aFFECT oRANCHINQ 

t r* T r- li A A D ki f 


0*«* other input VAKIA6LES 
a*J^_V-ARlABLES- WHICH -AREv-C^HPU T EtJ- 


*«• skeleton LISTIN& OF ThE CANUInATE PATH FOR COMPlT 




IF UfNE^L; Gr» To 3 

1 b-rLr)-*-P A t U. vL > *5-I i ♦ A ( L . L 4- i -l " *-A-(-r 

B2« A I L+ 1 I U J ( A tU ♦L ) + A ( L + 1 *L+1 ) «S I GHA J 

> U-y-* A t trt-2Ttr+ I F ~ 

AtU+2.U)«U,0 

^ ^ *r ^ - 


3 B1«A| I » I-'i i 

— B2»A f T + 1 rl - 

IF IlfEU.Hl Gn To 5 
&3« A 1 1 + 2 r 1 J — — - 
GO TO 6 


6 D» SwKT I B I I +82*b2+a3*B3 J 
— -IF — I-ti-J-TOE-* 0 t-F’^G-HF-o — B~ — — _ 

7 0*-0 

fl— | - F ( L Hr£^~rtiy) — sA™? 0"l “ 

9 Cl«S2/ iD + t3 i J 


E=»2.U/U*J + C|,Ci+C2*C2i 

— 00— iO— — — 

I f 1 I ,EW .H) Go To 12 
— G*E-*-4-A-VT'( K ) i*.C f * A t*I + It K t A t~i ‘FS tK- 

A(I iK)*A(l 


AU+2«A|=A( 1-^3 ,K) «C2»G 
—GO- TO lu — — — ^ — — 

I 2 G-E* ( Al I tK )+Ci*A( I + i |K» } 


JF n .tO.L J Gn TO 


F^t-I-, E« • M I - G 0 -TO^ I H 
l& AT I+2i l-l l =«n*U 


If I JoLEtNJ Grt 1 0 17 
E — 0** N— — — 

17 00 la K*L»J 












21 G*E*C2*Ati+3»J+Zj 


35 AU+3|I + I 

—35 — s A C I 1 ^■ 3T * &- 

36 1 CONTinuCi 

^ ^ 

INPUT Variables Ahich aFfect rRANghInq 

-H- — Sihr-'M A”R ho —A 1 — 

o»«* other input variables 

J3 aR-I A B L E S -C¥ H TC h -A R E~C 0 NP-U F E f>"~ 

D A b3 HZ Bi I M 


S£G I SEG 2 statement 


PO I i*L,M 
1 F ' I I ■ r t'& Tj '- b ") — <S □ “'T Q 


■^ro — fS 3 ^ ^ 

2 BloACL*LJ>(a C L . L ) «S I GH a J +A f L , L 1 ) » A C L+ 1 *LI+KhO 
82*:A C4.'t-l ,L) eC aCL iC.i+ACL+i Gh A>- 


B3«AtL+liLI*AlL+2,L+lI 


GO TO 6 


10 


?).-S4RT-t B t * a 1 +b 2 * bZ + ti5 » B3^ 1- 


IF tbI«GE«u«) taO To a 


1 2 


I 3 


8 IF CPiEQ.u,) rO TO I 








. , I [1 r.: 1 | rv .1 

■it ■' L > - >.■ 1. ■• J 


*** c A P 


i F D R T U H E-' E X E C U T i a N PROFILE I 


3TaTF,HENT3 


*** FOHTlJNF FOR lBH/3feO ♦** 


**the or 
if PP, 265,132 


C FDR OEsCRlPTlow OF HETWOD <JSEO IH tMia PRORHAH, SEE 
C TRAhSf nRHATION+* BY FRANCIS, : COMPUTER JOURNAL, VDU. 

C START R EOF T O PRQQU C F UPPPR HRASFN BU RG MATRIX 

DIhENSTON A(lO, 10 ),vEcJa], £lGVECCiJ,if}, INT f 10) ,CC 1 10) ,SS (IQ) 
n I MENS I ON 7 (10) rOriOr 103 ,BR CIO, 10) 


_ b A I A A ../..qIXj. 5 J ^h* Q 4Q-iJL.X‘ 3,-SUiLJji.Q *J ^ 

2 S.Si 3«5, Oafa r 1 p2, 6^0 ,0, 9a 9, 6i2, 1 i7 f 3.S 

NHA)i 1 10. 

NN K U - ■ - ' 


nvfc * a 
n=nn 

K«M-? 

001 J*1,K: 
KliiJ-H 
Jl2iJ + E- 


ARSrACKl,J)) 


GRPAT* 

HAy»Kl 

...DD?I*K2,.N.__ ^ 

AB. ApatAtTrJ)) 

TP (GREAT. RE, AB) 50 TO 2 

^ G R E A T = B • 

HAy«T 

CQmTTNUE 

GTVF5 IMFO RMATTD N ABOUT INTERCHANGES 


a 

XUJ(T) 

INTtJ)»iHAj( 

IF (HAX.EQ 
ii 0a AL*J>N 


'kV) go to 5 


E=a(ki,L) . 
acki,l)»a(hax,l) 

ACHAXfLjuE __ 
nOfL*l,N 

F»Aa,ki) 


A Cl ,Rl) »Afi ,HAy) 


aCl »nax)»e 
JNtERCPANgf done 

D0rI*k2,N _ 

IF (Ad, JirEO.O.) GO TO' 
A(7,vn»"A(T,J)/A(Kl,J) 
DOi IH uKIkN 


&0 

'=gg 


8S 




11 

s 


10 


A(T,H)*A(1.H)+At7, J3*A(K1,H) 

CDutlNUE 
LEFT HULT._DDMF 
DO 2000 H»K"a,N' 

IF CAfM,J)7E0,Oa) GO To 2000 
DO 2001 ,N 








2001 A (T , K 1 ) ■ A C T , K n - A ( T , M) * A (hV J l 
2000 CONTINUE 


1 continue 
bright hultT 


DONE 

HESSFN(\URB matrix now 
DO 105 I*1.N 


formed A3 AdrJ).’ MULTIPLIERS STORED WITH IT 


DO 105 J*i»N 
105 D(T, J)«ACI. J) 


m 






*** FGSTUtJF for IBH/360 *** 


eHFCUTTOfJS 


P ^ 


C PUT APPPnpRlATF ZERC3 where Mui.TlPl.IFRS WERE STORED 
no 10b 1*3, N 

L»T-E ^ ■ 

DO lOb j“i;l 

106 itTi J5»0,0 

KUN4-1 - • . ; . - ' ■■: ^ 

Rso.O 
C*n , 0 

DD3iT*V»N:_ , 

RHB+ ARS(AM»IJ) 

33 dsr+ AOS(AfI,N)) 

r> 0 7 i| T : ^ ^ — — 

RS*0.0 

rSiO.o 

. ... I'T-I . ■ ^ : . -- 

no7bJ*LiW 

RS.RSi- ARsrAfli JV) 

- ^ ^ ^ 

K1 T»X1*-1 

cs*c.'?+ ARsfAOd j,xii)3 

-IF tPaAE.RJ. GO TCL3f! : 

37 R»pS 

36 IF frs.LE.D GO TO 3^ 

iid. ci-na . — — - — — ^ ^ — : 

3U CONTINUE 
1Jk*1 

.IF tP.GE.Cl GO TD^iit ^ 

C DEL* A tS CRITepION FOR STOPPING AN ITERATION 
53 DEi TAjiR*! ,nE*»l i 

_£..OEL .IS ARBURART^ 5ha . FX 

DEi xR/l7*UaR 
GO TO 153 

„ , . 5u r)ElTA*C*t*DE=ll — — 

OEi «t/lT>U2R 
C OEtTA COMPUTED 

■^.PRnDilCH^A-PJi^TERA TF ON THIS TO ORF A K OP F lG FNVAlUEa .,. DE _£P U Ai^ 
153 PO 107 I^l.N 
J07 aCTj Tl sA(l»n-nEL 

55 IF GO.. TO ■--■■ 

C SUR*nUTt»E CAUrEv calculates eigenvalues of IXl OR 2XS MATRICES* 
C PJ *S aOREO RAfK IN CALCEV 

_Ji 7..C A LL^XALCEdX'^.^HMAiX « 0£ L t VEC ..UK i.N.r-U 

GO TO 7 t 

«A IF (N,fa£,si GO Tn BO 

UR call CALCEV(Af NHaX^D£L.iVECiIJXxN.i?3 , . — 

GO TO 7b 

C DR TRAmSPORMATTON STARTS HERE 

> C T NT T l.A L 1 7 E FOR. OFTFRHTNtNG S URSECUE NT ^ ^ 

BO AR| *0.0 
AR3*o,o : 

ARu#0*0 — — — - ■ 

c RE-ENTfR AFTEP RFALIT or CnHPiT SUBROUTINES CAULFD 
C SELECT FIRST (rZCRO)) SUB-DIAGONAL ELEMENT FROM BOTTOM 


9 


|C7 n ci| 


r ii« *■ UNF‘ iBh/ j>bO .**«» 


If f ABS(Atw2IrN2l-l)) .LT.DFLTAlGCl TO 57 

5A L»l -I _ _ „ ^ _ 

VALUE nF L SFLPCTEn 
57 IF a.wE.N) SO Tn 59 

5B CAl L CALCE VCA»NH AX .oEL.VEC.IJK,i^,lV 

M«W-1 
6D TO as 

59 IF (fL*N+tV<'^E;Oi_PQ TO 7S 

\'fcO CAiL CALCEVfArNHix,DEL,VEC»IJKiN,2) 

N*M-? 

fiO Tn 5 5 . 

DETERHtNF FIOEMViLUEfl PF 2S£B HaTPIX — ROW 1 * A(N 

ROW 2 Jt ACN 

AND RASE SHIFT ON THFSF 

' 75 R«ArN-ljN-l)+ATNiNr‘ 

C»iCN«l / N-! )*AfN,M).ACN,N-l 3*ArN-I ,'N) 

Cla AfN»l iM-n"AtH,N) : ■ 

DI SC»Cl*Cl+tt,OkAfN,N"n AACW-1 ,N3 
IF (DISC.GF.0.) GO TO £,3 

_ 6? RU0,5*B ^ 

R2*.5* S9RTt AR3COISC3) 

ANllH*f Rl-A93j * fBl •AR3i’*CR2«ARfl)* CRa^ARa) 

OEM(}H,AR3»AR3 *AR/l«ARfi 

TF tPFNOM.Ml.O.) GO TD £00 
301 RHn»0,0 
SIcMAifD.O 
GO TO £03 
EDO RHn«r 

Sir. HA *n__ : - ' 

203 ARtaRJ 
ARa»R2 

CAj L cr)HPlTtAyM HAX^L « NfRHQ.8TGHA) 

” ~ GO TO 61 ■ 

63 IF {B.GE.o!) GO TO 65 

6a R In. 5* f B" SQRTfDTSrn 

GO TO 66 

65 Rl*,5*tB+ SQRTTDTSCl) 

TF CR1>NE»(Lx1 go to 66 ■ 

63 R2*0.0 
GO TO 

66 B£ m C/R1 . ^ 

ROnTS OF 2*2 HATRIX FOUND 

6<i iFr AB3(ACN,N>-R1 ),gE, AflSrArN#N)*R2)jGQ TO 68 

67 AH?«Pj 

GO TO 69 

69 TF^fARl.HFro.j GO TO 71 

,72 BHTFTaO.Q 
GO TO 73 

.71 3HtFT«AR2 ■ ■ _ ■ 

73 ARt»AR2 ^ 

call REALITCA,NMax,UiN,5HIfT,*CC|83) 

- - - ^ 

ARE VECTORS WEFDEQ 


A(N'»l,N-i: 

ACN,H-ll 


p o 

'=g ^ 

p § 


;® sovi 


EX EC UT TOMS 







r. ■ ' ■ ■ 

fe- . . . _____ . ; . . . _ 

STbTI (Ts *** FQRTUNF FOR IBH/360 *** ! 


7t IF CNVFC,En,0) CD TO bOO 
C INV*RSf ITFRATtON is used for FiGEfJVFCTORS 

_-:-5SQ..aMALL<D£LTA.*I>QE" 3Q..... 

NUhsQ 

JI.l 

; 

C Cl IS REAL PART OF EIGENVALUE 

513 ci*vecfJi3 

...C C2..1S CDHPLEJ? PftR:lLJ3E:,.EiG£NyALU£_^ . ^ 

C2irVFcfJI + n ' 

NUhicNu”*! 

C REPU CF .PFSSFMrURG H ATRTX ANG HUI TTPI TFB5 

t>D 570 I»1,NN 
DO 570 J*1,NN 

„ 570 a(t,J3»D(xVj) - ^ 

IF tCP.NE.O.) GO TO 5bl 

CA| L PVEC(A^NHAX,’lNTiCl*SHALLf NM,NUHfElGVEC»NVECfCC,BS) 



IFfNVEC,EOrNUH)GO TO bOO 
GO TO 513 

5 6 1 . C A L U I w V f C f. A I N M AX^ilT j C 1 fX? / 5HA LL^MNjN0»i £7SV£CrNVHCtCCf S S 1 2 #BB) 

C next STATE^'ENT IGNDRFS CONJUGATE COMPLEX EIGENVALUES 
Ji«JI+a 

IF CN y_E c .F q!;N U_HJXQ TO .600 : 

GO TO 513 
600 CONTINUE 

WRITE Cf-fTOft) (VECfli ■ 1* 1 tHNl 

DO BO I»I,NN 

20 WRTTEfb|700j EFIGVEC f It J1 # 1 »NN) 

700 £0RHAmJtL..,.5E20..X. / 5E20,fll- 



EXECUTIONS 

TiHt 

TRUE 

1 4 

A.. 

1 

' 5 

**o» 


1 

...3 : 


1 

1 

2 



i 

2 



1 

5 



a 

lb 



4 

26 



4 

20 



4 

144 



lb 

57b 



.... b4 

704 



4 

20 

**o* 


4 

124 



4 





4 

22 

1 


3 

6 



*40* 




44Q* 




**o* 




**o* 




1 




1 

144 



1 

3b 



4 

bb4 


*" ' ■" • 




■'tJ'n*TlJNk r til? Vsn / '3 


SUpROUTINE CAtrEVfa,NHAX,DEU,VEC,IJK, 
DrM£>Jf3TQN A VECflV 

TF (H,Ne,|1 G0_Tfl_? ^ 

1 ATiO.O 

A *A (N‘.Mi+DEL 

C BTDRH P I R£Ny A [. H F3 T N VEr. 

VEr (rjK}=iAfNiN.l 
vEr njK+n«Ai 

TjK*IJK»g .. ■ ■ 

RETURN 

p B*A(W-t,N-n-*AfN,N) 

C * A C N *1 y*A:LN i N ) ?• A ^ * A fN»l . 

ri-AtN-1 fN-n-Aff'r,N) 

Dl‘'.Ci«t:t *Cl*«,0*AfN,N-|:l*AtH-l # M5 

IF £n|sc,LT.6s5 nn tO 9 : 

U AI «0;0 

IF [R.GE.ori Cn TO b 

Ri»n.R* f8« 3QRT-LOJ.SrjA ^ ^ ^ 

GO TH 7 

b Ri»O.5*t0+ SORTCOIScD 

^ IFfRl.N£^o:^J fiQ.m.2- 

JO R 2 « 0 . 0 
HQ Tn tl 

T RPtF/RI ^ 

11 flURJ +0EL 
R2.R?+nEL . 

- ^ VErfTJKj«R? 

V£n£TJK + n«Al 
VEr (iJX+?l»Ri 

VErfT.lK+3V^AI ^ 

■ HQ TO fl 
: 9 R1 «0.5*B 

AI»--«5* SnwTf ABSfPtSeil ^ 

Rl.RUDEU . 
vErdjKi »Ri 

V Er n.l KTl V.^ A .1 - ^ ^ 

vtrdJK+aj«Ri 
V£r£TJK+3) «AI 

_ .,lJK»TJK:+.ft : ; ^ 

return 
ENO . ■ 







1 .., 


‘ r <»^nJNF 


SUnHnuTIK'F CnMPITfi,WHAX,tiN;i?MO,STGHA) 
rilMENSIDN a(NHAX,NHAX) 

.Hj)ij5f HnuPEa.j;? PE,. MilRlCES . USED.. INSTEAD DF„HOTATIONS.iEE£ FRANCIS P.AP 
H»W« 1 

OD 1 r»L<H 

IF .XI^E^l.T .HO T D.^„ 1 ^ 

Z RUAfL»U3*rAfU.L)-!StGHA)^-AfL,L'<-n*A(L + l,L)+RHO 
H2aA^L-»l iLl*fAa»LUAfL+l ,L-M )-aiCHA} 

B5«A £l+1 <L5 * A tLJ'.£4.i.+lJ- - : - 

ACl.+?,L)«0r0 
GO TO 6 

I-Bl.aAfTtI. * 13 ^ ^ ... 

R2«AfI+If 1*1) 

IF (T.EO.Hl GO TO ^ 

_ a R3*ACl + 5rI-l) ■ : 

GO TO f) 

5 RSsO.O 

■ ft D=_SfJR T fBl * BH>Rg*R?-t-R3*B3^ ■ ■ 

IF (FU.GF.n.) GO TO fl 
7 Da-0 

« IF C0.F0,0’3 „GTL TO 1 - ^ ; 

5 CUB?/(0+Bl) 

C2*B'5/£D + rO 

- — ■ F » 0 Af U 0 + C t *C l*C?*C53 ■ 

DO 10 

TF CI.EO.Hl GO TO la 

_J1 G«F*fAtI|(<1-»Cl*Af3»lr Ki»c a *AfI»2fKi) 

ACTi«i*AM’,K)"R 

A£t + J ,K)*AfI-fl ,K1»C1*G 

A(Tt?,K)»A£I*aiKl-Cgt>G . 


GO TO 10 

i? G*F»f ACl/XUcl*AtI+liK) J 
AtT.K)«ACl,Kl-G 
■ ACl+] ;kl*AfI+iiKl.Cl*G 
10 CONTINUE • 

I F fl .FQ.L V GO TO in 

13 a(t« ifUs-n 
A tT + l I I-n *0,0 
TF (T,EQ,H1 GO TO U 
15 A(T+3jI-I)*0.0 ■ 

POW OpEPATTON completed 
U J*Y+2 


IF (J.LE.M1 GO TO 17 
Ifi J»N 

17 DO IB X*L,J 

IF (I.FO.Hl GO TD ao 
17 G»F*fAfX»n+CI*A£K,’l*n+Ca*AfKiI+2)5 

_ JiJLf T > s AfK.il^n 

ACX,T+y)»AfKtI + n-Cl*G 
ACk» T-f?)*ArK»I'F21-Ca*G 

'■ GD Tn:ie : . ; ^ : ' 

HO G»P*£ArKyiV+ci*A‘fx,T+n) 

: AtKi I)»ArK,I)i-G 
A(KrI+l)*AfkrI+li-Cl*G 


Ifl continue 





IBK 




SUBHn*iiTI«E RVEC(A|NH4:X,INT^CJ , SHALL, N»NUH,HlfiVEC»NVEC# INTERf V) 
DImENSTON a C^MAXiNKaX), iNTFflfl j IMTtl) j E lGVFCtMHAXrNMAX) 
001 Ixl,^ 

4(T,T}*AtT7l)**Cl 
no? T»2, w 

: ff AB3CAf T-ltT"in.GE. AB3CAa,I-t)?]GlO TO fl 

3 INfEKrTf-I 
J»T-l 

. noi? ic*j,N _, . - _ 

■ B»AtI-l»K) ■ 

Att-1 rX)*A7IrKj 

5 A f T I K }JLB ^ . 

SO in h 

A TftTERM) *T-1 

b IV fA tTx I>n .En.O.i GO TO F- ■ _____ 

• 00' 8 Unli hf ; ■ ~ ' 

8 AttVK)«ACl,K)+C*Aft-lfl<) 

? CUhTTmUE 

C TRtaHGULAR HATBIX formed 

■■"■.■"■ ■ r>OQ'I»'t,N ' / 

lFf.A8S(AtT,m.GE,’SMALLJGn TQ 9 

■ to A C I < U? S » A i L ■■ ^ 

9 CONTTfJifE 

C NORHALtSFO f(£TGEMVECT0R3} of HE3SFNBURG MATRIX OBTAINED FOR RHS n 

___ 00 55B5 1*1. H • 

5555 Y(ii *1.0 

DO SRBB JJ,lJ»l,<J 

7777 YCH -Ix r ( N) /AfN.NT - : 

r»yCm) 

DDI 1 I«ta,N 

E*0»0. . : ■ • - 

nOlE'J*3,I • 

l.«*J+T-T ^ 

1? E»p+YfLi*ArH,Li 

YtH)*(VfH3-E)/AfM,H] 

TFT AR3(BJ:gE. ASaiY (Hlllfig. TQ.-ll . 

13 B*V(M3 
it cohtimue 

^ ^ 

la yCT)»Y(n/fl 

TFfJJJJ,EO>)Ga TO 6<>66 

. noi5^ I#2 pN . • ■ • • - ■ ■ • . . 

IF CTtJTEBCTj.ME.n ijo TO 15 
16 RxVCn 

< vJLlJ »Yfl -n :— : 

YiT-O »tB 

15 vcT)*y n)+A(if i»-n*y ti-i) 

. ..SBBrt COhTTMUE _ . ' . ■ 

C EIgEnvfCTDR of HESSE*JBURG H^RtX obtained fNQT normalized) 

6666 MtfN-1 


JXKN-J -T 



nh"^ 


*** FOffTUNF FOR lBH/360 *** 


nq?o 

_ 2q; vj: k 1 » y cKi*xu}.*A.au.F-n - . — ^ — — 

Li«iNt(N-n 
IF tJ,EQ,:Lt5 CO TO 21 

IR B * Y. m : ^ ^ ^ — — 

Yr.T)»YtLU 
YCl L)*B 

2J COi^TlNlJF. ^ — 

C UNNQRHaLTZED ETCENVECTOfi OF ORIGINAL HATRIX OBTAINED 


ifr abscbiTge. 

2T P»V(I) 

2g. continue 

OOPfl Isl»N 
aci YtT)»YfI)/P 


AnSfV(I))5Gn TO 2? 




it** > VOf*' I0H>:3b 


5UPRniiTlNE IHVFCfAfNHAXf rMTjClf AHU,*3MAULFN,NtiH,ETGVECi vVeC/INTERi 
1Y,7fR) 

niHE^isiaw A CNHAljiJMAXljlNT.EBJX).! V aiUil J tlNIiJUliB tNHAKf NHJllO-t, 

lElnVFCfM^AX.NMiX) 

0Q*?o I3l i Sf 

__J?05CLJ*If^j ^ ^ 

50 B(7#J)«0,0 
0D< 1*1, H 

ACi,n=Aa,i)-£iL_ ^ ^ ^ 

1 HCl,n»Bfl,I)’*AHU 
OD? I«?,N 

ir»A u tB c j - 1 r I r A.y : 

D»A tI,T-i )*AfI,I-lH0Cl,l"i )*B tIf I-l) 

IF (C.GE.Dl GO TO fl 

iNTEPia*i_. 

G*r 

■ ■ C*0 ■ 

^ ^ ^ — ^ 

J»T-1 

DO*? K*J,M, 

.G.*a K 3 — ^ ^ ^ 

AtT=l,K)»ArliX) 

AtTiX)*G 

___G* B.C 1- U^l . ' ■ ■■ . -..- - ■ :. - -■: - . . . ■ 

PtT-l,«3“BaiK) 

5 B(T,K)»G 

Ga.TO '6 - V ■ : . .■- : . . 

a lNTFSfT)»I-i 
b TF tn.FO.o!) CO TO 2 

__.T G ltAf l. 1 *1 1,-,:. ^ : - : ^ ' 

a(t, ri-i,i-i)+Ba*T-n*Bri-i»i-i))/c 

_ DDr ' ______________________ 

a(t,k)»a(|,kI + a(t,T^13*a (f-l#X3-BCT,I"l)*0n-lrlO 

8 Ba,KltBtT,K)*Ba;i-l)*ACX"ifK)+An#I'^n*BCl»tfK3 

_s_.cOn.tjnue ^ : 

TRtaNGULAJ? HATPIX foRWED 

OOq TrIfN . 

n R A ( I , T ? * lD ti , n - ■ 

IF (C.GEtSHALll GD 70 C 
ACT# i)» SDRTfSHALL) 

■ BC t. TI^Q.Q ^ 

9 CDWTINUE O _ 

00 nil r*iiM 

_ _T(71»JE,0 — 

in zcti*o.o cTS 

DO BP8» JJ.TrIfO 

.C » A{M,Ai3*AfH,KnRf»,Nl*BCN.N3 ^ 

G»Y(H1 ■ ^ ~ •’ “ ^ "o' 

Y(Mj*(G*AfN,N)>Z(N)*0C«#N)3/C 

ZCM3*(Z{N)*AtN,N}-G*0Cl^#Njl/C 

-oajy.,.. - ~ ; - 

F»0. 0 .- : ; 

HfM+i*I : : 


tfcb. 

’’’O 

is®' 



*** FDRTUNF FDR IBH/3faO **■» 


nu 

L SN + J* I 

E«F*Y[L)*ArHtLi-zcn*B(H*n 
i> Fa.F+YariB fHiUj'J^Z tU)*A (H,Ll 

G“VfHl . . 

V Ch)i! C(G-EUACM,HJ+ CttK)-F^*RtM,H) J/D 

IT Z Ch) »((Z CH'>-F)*A tH.'Hr-rfE-El^BrHfHn /O 
Ean ,0 . ^ ' : 

nost i»i»N 

F«Y£ll*Vtn4Ztl)*Z(l3 

IF CE ■GE.F^ GO TO 51 ^ 

5? F»F 
L«T 

51 COmTIWUE _ : -■ :. 

Al.Yfi.) 

AEiiZfL.] 



G»vtn 

YCtI* CR*Al4-Ztn*AE)/E 
la ZtTlFf7fTUAl«»G*A2i/E 



IFt JJj.EG.ttl CO TD 6666 
D0l5 I»2rN 





16 fi»y til 
VtT)»Y(I-n 

vtT-n»G ^ 

G«7ttl 

7tT)«2(i’*n 

' ' Z(T"n * G 

30 VtT)»YfIl+A£lf 

15 z(Ti*zfn+Rti, >ii*Ya-ii+A(T/i«n*zti-i) 

_a. 6 aZL- 0 D'JTINU£*_^_„_ ^ ^ ^ — 

C EIrENvECTDb OF HESSEN3URG MATRIX ORTAINED 
6666 MitH-rl ■* 

„^Qf 1 — — ^ 

LM +1 . . 

D0?0 K*fL».W : 

YCK)»Y(K)-Y(J) *AfKrJ-n+ZtJl*BtKf J-l3 
20 ZtKl«Z(K)-7tJ3*AfKf J-O-YtJUBtKfJ-U 

LLj JUUMiXJ ^ 

IF tJ.EO,LL J GO TO 2l 
IR RtYCJI 

^ _._.YtJ)«YaU 

YtLLlAG 

G«7(J) 


ZtuUl)«G 
21 CQMTTNUE 

UNnORMALIZED E.lGEiiy£ni-Qfi-JmlA 

E«n,0 

n 0?2 




**o* 
**o* 
**o* 
* * 0 * 
** 0 * 
Jt *pjjf. 

** 0 A 

** 0 * 

** 0 * 

**Q* 

** 0 n 

t* 0 » 

**o* 

**o* 

** 0 * 

**o» 

**o* 

#*o* 

.** 0 *. 

** 0 * 

**o* 




I D u 


. aTF 


^ ‘ * Lf” r U 


★•if 


23 F»P 
i»I 

CDnTTkUL_.. 

AUY (U) 

A?«ZfL3 

_I*L»fJ. . 

r,«v(n 

VfTj*(G*Al+2{n*Aai/E 

ZtT) «fZ(T]*Ai*-R*A^i^E ___ , 

NDRHALIZEd ETGENVECTDR OBTAINED 
PUT T(tJ (REAL PART) IN EIG VECT tNUHDFEV > I) 

__D.g_ 1 DQ i.y.iiLjL : — 

ion ElrVFctNUM.'DnYfi) 

NUhpNUP+I 

C_PUT_Z(tJ fCPNP| EX P ARTi tN ElGVECT f NUHQFEV , I) 
DO fbl iTl/N 

loi eirvfc(num;d » zct) 

RETURN 

end 




★ * 0 * 
**o* 
#* 0 * 


**d* 

«*o* 

mirO* 
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C FOR [CSi:..lPTtON OF MFTHOn USED IN TUTS PROGRAM f SFF >t:*THF OR 
C TRANSFOK' AT10N++ BY PPANdSf COMRUTER JOURMALr VOL. A PP. S65»332 
C START HERE TO PRODUCE UPRPR .-LSSFURURG MATRIX 

PIMENSION A(tOfXn) »vEG(.i) r EIGVErt4r4)r TNT f 10) i CC ( 1 D ) f S5 ( 1 0 ) 

OlMKf'STON Z(IO) fD( rbRU0>10) 

UATA A / n.l«*f.arl.O»3,2fb*0,0i.'’.Of3.Sr0.Pr0.1#ftt0.n* 

2 . b »2 » 3 .5 f U ♦t. » V • « 0 * o«0» 6 • 2 r 1 »7# 3 • fl p i 0/ 

0^ ^ + i >Jr4:H:*t + 1-+ + *+ + + + + +V 5'‘GVfMT 1 + + **** + *++ + =^ + + + * +++# + + +* + +++* 

N. Aa = 1(1 
NN = ^ ■ 

Nvrc = A 

tJ=N.j . 

K=N”? 

nolJ=:ifK 

C + *i.^ + + 4++.PL +++*4;+*!(i*++++* + ** SPbMENT R + 

Ki=J+i 

KR=j+a 

6REAT= ABStATKliJ)) 

MAX=1<1 

UOZl=K?rN 

0i^4:+ + + + + + + + » + SF &MENT 3 >l< *+♦**+ + + + + ++* + + + ♦*!('♦+* ♦♦*++* 

Ati= AuS(A(3jJ)) 

0*4(ft*4 + +4.>f4-+++**+*+^* SEGMENTS -. 4 THRU S + + *+>^+'+++*=i!*++*++*++++ 

IF (ORruT.GE.An) GO TO 2 

C*t*»+n+t + + ^ + **+4 + *+*+++*+=»‘'»* SEGMENT 6 *^+++*++H'+p|:*+++*+++*i(*****+++ 

3 GREAT=Ab . 

max=T 

C++4.+#iti4*+ + + *:*++++++)M:+*+*+* SrGMpfgT 7 ’f*+*+*=^!»<***4+*++i'+*++*+*+**++ 
2 CUNTTHUi- 

C lNTd) GTVFb INFORMATION AROUT INTERCHANGES 

C^)4+:4c + 4c* + 4<*4t+++ + + 4; + jt;i. + 4 !*:* + + ♦ segment tl +i4t^ *+*****+=M<-i(c**+ ++**+ + + i)!**+* 

INTIJ)=MAX . 

C;^**++'M.)4;*++ + **+i(»i(++*!* segments 9 THRU . 10 +*++’**++*+++‘’f*’t=++’t***4' 

IK (^‘AX.FU.KI) GO TO S V 

C^^++4: + + 4.+ 4.t + t + + 4:*4iJ4i*: + *iJ; + + + * SP6VCNT H + 4 + * +*♦ + + +***♦ + + *♦♦’(*+**+♦ 

4 n06L"Jp N , . 

***+*+++*»(<♦ + +♦*♦+♦ S<"0f'ENT 12 ♦*+** + * + + 4:*!* + +i(+T4 + 4.^4-*:4,++t*** 
FiiAlKl»Ll 
A(K1kL)=:AIMAX»I.J 

Ci».+»+***+++‘t-+**+^****+***+++ STGVFNT, 13 *+!*!»++++» + *+++*♦++»♦+♦*+** 

G A(MAX»U=L 

0^4(^(4£ + l4 + 4. 1 t *t,n + + +* % + *♦ + +++*+ SrOMONT 14 ♦♦♦'t: + + ++++** + t + *+*++++*+ + *+++ 
U07L=UN 

G4.N:4:**sC> 4’1 f*+*++*+’1'+***>H*+** SEGMENT IS *+*+*t+t=(+++ + + ++** + + + * + * + +** + 
Fs:A(L»KlJ 

A(U»'--i)-A{Lr?^AX) • 

C^ + i|:4i4;+4.4l. + A4^++!»-4- + *+* + !f + **4!* SEGMENT lb +-*!t:*+it't:^* + + * + + 4i +++*5»** + i‘ + *+* + 

7 A <Lf ■^AX)=t 

C, lwTE'?cUAN6E TONE , 

C^4,.4,4* + + + 4-*** + + + 1! + i:4)4*^*!)'+ + + SEGMENT 17 +**=***+ + *** + + + + :^*****+> + *<++* 
b !>o«i=b2»f: 

C.*-t**+* + »'*>*t*+++44++* segments ta THRU 19 ++7++++-+++*t**+i ++*+*+ 
U ( AtliJ) .EO.n,) GO TO M 

CV+4* + ^ ♦♦ + *-*+-*+=‘+* + *»*+*+=*++ SEGMENT 20 ++( =** + ++’* +*+*♦♦ * + **♦* 


ORIGINAL PAGE IS 
OE POOR QUAyf? 



A- 


ftilr J)=“A(Xr J)/A(Klf J> 

noiiv=Ki>N 

11 AtTr'-')rA{I,M)+Mlra)+A{iaiM} 

C»=l‘**t+ + + + + + + + + + + + + SrOMFHT 22 ++***i*: + + + +++ + + + + *+*+* + + + *:5!:t:*itr 

n CONTTNllt; ' 

C LEFT MULT* Ijnrr 

C»»i(t* + **+*+++^*+i=*+*+4*+*+ + »* Sj'-'GMENT 23 *+T++*+**+*+*++N:***+***=*^**‘*++ 
i.*u anuo f.'=K2ftj 

C*+++*'tf+*» + + **=t++++*+=t^* 'iFlGME'lTS ?«l TtiFil P5 +++*++++%++*++*+*♦+++* 
IF J) ,FO.n.) 00 TO PuOrt 

C + * *♦ f t ♦ + t > + + 1 1 + 4 ++*+*♦+<•*+ Sr oMEMT 26 ♦♦r+++++**+++>((4t ♦♦*+♦+*♦+*+’►+ 

in r)o I'.noi r=:ift{ 

c t + + 44 + + *** ■•'+44! f + + *++♦ S^GMTMT 2? 4 ♦** + ♦♦+++4 ++++**4!+* ++ + *+++++ 
21301 A(IrKl)ZAtI+Kl)-AtIf”l4AtM»Jl 

C, ^4 + +»». + » + + 4t + + + + + + +!t;4+* + + 4r* SEGMENT 2F 4 + + *t4:*++++4+*++++++++ + 4+++*+ 
.OUij CONHU'Il 

C + + + ***4+* 1 +* + + ♦ + ++++**++* + + SFGWFNT 29 ****** + 4f+++++*++ ++++++4+++*+*. 
1 COUTIuUL 

C til GUT MLilT. noWL 

C ttESSE'UUUfiG MATRIX MOVi FOFIMFU AS AHrJ)* ••MJLTIPLIFRS STORP*n WITH IT 
C*'**+ + 4 *+*+ + + *44+++4f4:+++**4'* SFGMi^MT 30 *** * + + **4:++4++**++4+++ + +++*+* 
nw 105 miw 

(;.*♦ + + **+ + + +4;4:^c* + + +*+;t+4:4,*4:++ SESME^'T 31 + + + + + +44:i* + + +4'+4 +++ + + 4 + + *4 + + + + 
no 105 J=liU 

Cf 4.**4.4* + 4t + *44 + + ++4 + + + + + *++ SEGMENT ^2 **♦-*'**++=♦***■+**+**+***++ + + + + + 
lus n(ifJ)=A(ifj) 

C T»ur Al»PriOP(ilATE zeros where multipliers '.'ERE STOPFP 


23 *++++*+*++♦♦*+++ *+++*++4+*+++ 


P5 +++*++++++++++*+*++++4: 


20 ♦♦r+++++**++++4++++++++4+++++ 
2? 4* + 4 + *4+++4++++**4!+*++ + *+++1'+ 

2fi +* + + -+ + *4c+++44:*+++++++++ + +++* + 
2<3 +* + +*« + 4r+^++4r4:+4:4:4;+4f4r4:44: + 4r*^4: , 


+ +++++ 4+:+ S+ + +t|f++ + ++ + + 4!++ + +4(+ + + 


^2- +**+++++4*44-+ + 4: +* + *+* *++ + + + + + 


C + + +++‘M'+4*++++4+**+++++++-*:+ SEGMENT 33 

DU XOu i=JrfJ 

no 1^0 j=lfL 

Cv*+4*+ +44+4*44 + *4+4‘+++**4*4 SEGMENT 36 

iOo AtltJjrO.U 

C+*+**+*4 ♦*4+4++++++++*4+*+* SEGMENT 36 

Ki=; .4 1 

R=n . n 

c=n<" 

P03v'-l=li'i 

c ♦ + + *♦ + + + * + ♦ + * + f * + 4 + i|!4:++ + 4+* Sr GMFMT 37 

AHSiAdfin 

Ci; + *4;+t + t ( + + + + + t++»4 +++++>++ SFGMFHT 30 

33 C^C^ A'ib{A( ItN) ) . 

Cl + i:+ + 4 ( 4.4* + 4 + + + + + *+ ++++44++ SEGMENT 39 
i'U3'.T=2irf 

c+ +*++♦+*++ 4* *+++** ++*♦+++♦+ segment 40 

R'uii:i-*U 
C j='».0 . 

L = I“l 
no3b-'=Lfrj 

C + + T44* +* +*** + * + + + + 4+44 + 4:44+ SEGMENT 41 

US- AMSl A(I» J) ) 

K ijr* L-o 

C** *+ +4 ** ♦■ **++*4 + *4+4+444*4* SEGMENT 4Z 

3S CS=CS+ rilistAtKIUfKlfll 
C+ + +++4 + + + »‘***+* + ****+* 5rO"ErjT5 43 Thru 


33 *+4+++4*+4+++4+*+**++*+44++++ 


***++++4+44++4++4r4 + + -+4 + *++*++ 


5fi 4+++++*++4444+4+4+444+44*44+4 
3f, 4+++++4++++44t*++++44+++44:+*4:4 


37 4++4 + 4444*+*+*44+s|f4:+44444:+44:4: 


30 + + + ++44++44 44*4:+4:+4+++444+444' 


39 4+*4*++4++44i4;4:44:444+++444:++44 


,4 + 4 4+4++ + + *++4 + ++++4 + 4 ++++*+4 


4+4 +*44*+*+44444444t44:444+4+ + + 


42 4+*++++++++4+4+*+4*4+44+++++4 


++*4++4+++++++44+*++*+ 


V 


OS 


f 


IK RO TP 36 

+ * + + + + S^3.^'''"^|T 4?] *♦* 

37 P=R5 . 

C* + + + + * + Sr^MICNTb 'In THRU 

36 IK {r5,,Lr.O GO TO 34 
Ct + + ***+*t ♦ + *+t^ Sf'G^'KiJT 4A +*+ 
44 C=Cii 

C*** r+f + + + ^*++++**4: + i*. + ++ + tit+ GFGWFNT 49 + 

34 COfjTltaijL 

c» *+4=+*>=»+*ii‘**++**+»=i'+++*»++ SF'pf.ir.MT 50 *** 

IJK=1 , 

C* +++4**+>f*+»++4.=t:»+**i»-* SUGMEiiTS 61 THfiU 
IK {f?,'-,L,C> 40 TO 64 

C ;1ELTA Tfy CKiTERI^'t FOR JiTOPPir-iG AN ITERATIO ) 


46 *♦*+♦**+♦*♦+++**+*+**+++***++ 


47 t+ + + + + + + *+*+^+*iM! + +++ + 


4A +*+ Hf * + + 4* + **+ + * + *+t;fr + + + *+* + + 


49 +* + *♦♦+ + ♦ + ♦ * + **++ 




6? * + + =l ++ + *»:4<5|:*4-!S’# + i1<+* ++* 


54 4 * ♦ + + *++4^ + !*'* * + ++♦+!*: + ++!»+ + ++★* 


Ct*-***^^ *** *♦ + + •»>+■+* + *!*.*+ + ♦♦♦ 's^pf.^^^^T 53 **»:* *+:tiS*’+>f + *+!l'**4:++* + + + + **5l4:+ 

P3 PuLT.'-R+l tOr-11 
C PLL IS AKblTnAHY SHIFT 
l’6L=''VL;.lG2n 
L-0 TO i:>3 

Cn.t+* + **!*'l-**1t + + f ♦ + + =**»+♦ + *♦* bEG^'^^^^T 54 4>|:t + + * + +4^ + !|'***++4!:+!t: + ++>t+ + ++4r* 

b4 flELrAzc+I .Ot-11 
‘ OLL=K./i7,lG2fi 
C DELTA CO'‘if'UTP'0 

C PRODUCE A-pi, ITP'RATF ON THIS TO BREAK IIP FIGENVAUJES OF FOUAL MODULUS 
C>f ♦♦*+<+»♦♦=!= + + +♦+< **j^r + 7tf + !j; + *+ Sfc'GMEUT SS +J)r**1:* + ***t!l ** + + + >|(+!t + * + + + *++* 
lb3 no 1(17 IrlrN 

Cf♦*t♦*♦» + + =^+++++4*+ + ^++J^(+ 1* bFGMFMT Sfi ♦♦* + '»:+++++++7+++r*++it+4++*+4<+ 

lU7 AtlfDzAMf I)-OLL 

C + *if* + 4.+ **+ *■* ♦■4 +♦■♦< ++♦+ SF'GMEinS 67 THRU Sfl +**4'4.*+»++**+*+=f* + +t+:+ 

56 Ir H-.'jt., U ^0 TO 40 

C SUAP''iJTi^ t-, CALCrV CALCULATES EIOruVALUES OF 1X1 OR 2V!> MATRICFS. 

C PI IS ADPEP I'ACV IM CALC^V 

t-rnt** ♦4^+*+*4:t44*+*4<+ + + +4 + + SrGMLMT 69 +it*4c+*+ + *;** + *#* + + *++4-4r4iJ.*:^*,j?!(( 
47 CALL CALCfc*VlA,MNAX4flFLtVEC»IJKiM/I) 

GO TO 7u 

C-4++++*+»**4i+* + >M=+*++++ SlGMENTS 60 THRU 61 *5!<++++*+*+*+*:4**+*>k++* 

4H IF IM,NE,2) go TO fJO 

Ct+*3|f***+ + 4!|Mc+++**4:3t4f'4++>K+*i' SEGMENT 62 ****4i* + * + *4i4-+3)<*+*»+!^**44;'*:**4;* 

49 caul CALCEV(AfNMAX»0FLtVCCflJKfN;2) 

GO TO 7b 

C OR transformation starts here 
C initialise FOR DETERMINING SUBSEQUENT SHIFTS 

Ci‘4+'*!K*>»+*+!M'+*4;*-+*3|;**=k*+*+ SEGMENT 63 *t***4++****4i*****+i|t*+*)ii****+ 
80 AKIpO.O 
AR3=0,0 
AR4=O,0 

C RE-FNTER AFTER RFALIT OR COMPIT SUBRnUTINES CALLFD 
C SELECT first ( t ZERO 1 ) Stm-DI AGONAL ELFMEI'T FROM BOTTOM 
C'l-++++**++T++1‘**5l‘+*;^**5(t*St!*ii* SEGMENT 64 ♦*+++** +*i|e* + *4:4:**+4£*:4*45(c***** 
61 L=N 

D056 I=aiN 

C + =t'***+K*’fr**+*’t" + +44f*4=+**4ri|t+* segment 66 +ir*+4.+ +++j*i++*+i|i*+*+*5)r4:i*:jt:*4!+ + + 

M2IPN+2-T 

C¥*+**********»**+*+*** segments 66 THRU 67 +*»*+7;4:4:jt:*+++++st:*afr*i<+* 
IFt ARSlAtNaT»NEI-in ,LT.DELTA)GO TO 67 
C*+++++**++>*4 + + *+***+*»++++ SEGMENT 68 ****+*iF+**=Kt|:*+!|!*+++*++******!4 

56 L=L-t 

c Value of l selected 


66 +ir* + 4. + +++J*i++*+i|i* + *+**4:i»:jt:*4! + + + 


67 





C>» ++*+* + *+*+++**sti + * + *=»+ SCH'^r-jTb 51) THRU 70 **+****+*+*++*♦=*♦*♦*++ 

b7 IP t( ,Nt:.fJ) GO TO bO 

C*+m+t*+:+-f + **+++*=***%**+*+** &f!&*'ICfJT 71 ***+++**+**+Tk*^<+**+*+44 *+ *♦*♦ 
b8 call CALCEV(Ar>JMAXfD‘='L,,/':CrIJKf!|rll 

r'=u-' 

Go r> AtJ 

C-t:<=#**4 *+ + + + ♦■+♦*+*++*♦+ 5r.7'-'E*iT^, 72 THRU 73 ++++4^+4i*;4t+++!^++*** + !*‘+ 

bO IF t(L-l4+l).NE.O) 60 TO 7b 

Ct4.'44:’|4 * + + 4 +t + + + + 4=+*!Mi + ** ♦ + !(> b.rof'‘*HT 7M ++4if+* + * + + + + + * + + + * + *i)t + *++^+ + + 
60 CALL CALCLV(AfHMAXfi ^Lf J JKrHrRJ 

fl=l4-r 
Go I O 5b 

C JLTERMINF niGLNVALlJES OF r.:ATPlX — ROW I = ACN-lfM-l) A(fJ-lfN) 

C RO^; 2 = AlNilJ-1) AtNfN) 

C AND tJAF.E bHlFT THESE 

c+ 4^# + + 4 + + 4*-M=*4^J!+* + **+4:*+** S^OVEHT 76 *** + +4+4-+4 + 44447-+4»+**'9itT4 + 4^4 
75 M=At'!-lrrJ--l)+Al(!fH) 

C=AC" -l»H-l)4A(NfN)-A(tJfr,-l J+ACl-*! *n) 

Cl=A«H-lfH-l)-A(HfM} 

(U5C"Cl4-Cl+4.0=fAtM»J4-l ) *A(n- 1 fM) 

C^*4 + *+ t*4 t 4+-»:4!f44+*4++ SEGMEHTb 76 THRU ''7 +++*4^+*4+4+++4+t** + **» 

IF (r-i‘qc.bF. 0 .) 60 TO 63 

C4 ++*44^ + 4 *4 44***:!» ♦4+4.+ 4 + *** 5EG*'‘Et.‘T 76 *)|f + 44+4*+*++44+4***4*4 + + 4+4** 

62 Rl=ti.b>:i 

H2=.'.4 S(iRT( AOSiniSC)) 

AtiU' -CHi-AR3)4 {H1^AR3) + ((^ 2 -AR 0 ) + (P 2 -AR<I) 

OrriO’/=AK'^4AU34AR4 *-AR*» 

C4++ + * + 4+4 ’♦ + 44*+* + +4+4+ S-G^ffiTS 70 Thru AO ++4!4^4+*4** + *+*4+T+4++4 

lE' f(''L(iu‘'.Ni;.l).) 60 T'^ 2fjU 

C*4+** + ++4t+4+**+* ++*4*'**1' + * S‘‘6f-^E^]T Al **4:+*!tc44*+*4++ + *>M:**+44 + *44*4 
201 f<HO=f’.U 
S 1 G^^= 0.0 
GO I'l 203 

C4+4 + 44+*444.44»4* + 44;444**:^*4 SEGMENT 0 ? 44++4*4*+4**+*=4+4*+!4:+4++*+**4 

2U0 [1110=0 
si6r-;f=M 

c ♦ + t *4 f ♦ + « 4 f* 4 .** 4 + + 44 »*+♦+ + ♦ SEGME- MT fl3 ♦ + + + t*+ 4 + 4 + 47 *+++’»* 4 *+*+ 4 *+** 
?03 ■v..?-'!: 

r '* 0 = ' 

Gall COMPITt AitWAX»LfH>kou,5lGMA) 

Gj TO >tl 

+ 44 4 + 4-4 4+* ++*4+++ SEG'^FGTb A4 THIM I 65 *+*++** + + * + + 4;!t+44* ++4t4( 

63 IF (f ,v4t*0.) GO TO 65 

Chi 44+++ 4 + + + + +++ + + +.+ + +++ + ++ + 4 G5‘ GWENT Q6 +* + + 4 ++++++4 + + ++++++4+4 4+*4*+ 

IU = .5+(LS- SURTU>TSC)1 
6 t> T O 60 

C 4 *4 + 44 * + +4 44 4 ++++ +++ 4+ 4* 44* j'TGMEI'ET 07 +*+♦ 4 +*++ + ++ + + * + * + +++++ + ++♦ + + 

65 fu=.*'+(n+ SoRTtPiSC)) 

Cf + + + + *4 41 44 + + + + +++++++ SEGMENTS RP TtIRH .89 + + + +++ + ++* + +++++++*+++ 
IF t”l,WE.O*) GO TO 66 

C C4 + 4 4+ 4 + +4 + + +*++*+*+++++*+* S'.G'-':'MT + + 4 4* + + 4-+4 ++*!4 4*t-**4*:|!+* + i4 + * + 

ij3 R2=U.O 
GU 1 rW 

C J 4 4 :|: + 4 + + 4 ♦ ♦ +* +++**4 *! 4 +j 4 + 4 4 + S' G“'-7!T 91 + + ’t* + + +* + 4 + *4 + ++++ + + ++4* + + 4+4 

06 t‘'j— l./kl 

C IGJOT-^ OF 2*2 MATRIX FOU JG 

C + 4 444 4 4*4* 4 + 4 + 4 4 4 + 44 44 SE6vr,|T^ f}^ THRO ,^3 4 + 4 + 4 4 4 + + + 4 4 4 * + 4 4 + + * 4* 
AM IFf ’ s MA<Mrtf)-Rl ) , 6 F, M StA(N»Hl"I<‘5})G0 TO fP 


S -I 




Ct +■**♦*+♦♦+**=♦♦=***+*’» V4 *+++ +++*+**!K:r5t:++’tt*=tt+i^*+++^i>»:+ + 

o7 AF?2=f'i 
«U 1 0 69 

C4+'>++* f »++ ♦* + ’»'4- + * + + *4* + + + ** 95 ♦’M'+1<’)'+*i('+ + *+*++*** + *+** + ++++ 

tifi rtu.p=‘»i; 

C444+44* + + 4-44 + )in»**+=)‘+4+ SCGM^NTS 9/, TH4U 97 + + + + *4:++++** + 4+ + + + 

o9 Ih CfHl.NtiO.) 00 TO 71 

**+ Mi 4+*+*++ + * + * ♦+*=►♦ SrOMPN'T 90 ♦ + **-4+*4**-5- + + **+*+4*T|(+ii4*+**» 

7 ? 5i!IJ: rsri.fj 

fV.; T'' 7J 

c ♦+•*'> + fl + t*4f*ftt44 + 4* + + *i.* SrOM^MT 99 t + + + ■»< + *♦+* + *+ ♦+>)|4+* 

n MlIFTsl'wiP 

C4+++*+ ♦ + ++ ♦4 4!*+ + ++J4i4*4f* ++* SFGf^FNT loo + + 5»‘+ + ++4 + ^'* + i*f>): + 1 ft + ++*f)!4 + + >^* + + 

7.^ Ai<l = /‘HP 

CALL KFnI lT[AfNMAX*L»M.SHlFTfCCt5S) 
eo lO bi 

C AHE VLCT9H9 f.JliEDEn 

' Cit + ++4; 41=* + 4+4* SEO'-IEriTS 101 TH9H 102 *** +++++*++*4:*+ ++* + *+4: 

7b IF f'VEC.LO.O) GO TO 6flu 
C ItjVERiiL ITEKATlOrj IS USEH FOP ETRLHVECT09S 

C^.^^*******-* 4 + *’l'** + + + 4 + *s(:4*)(t SEGMENT lo’j * + 4 ++++<+!(f4+++’t:+*++**4* ++4*+-** 

550 S^»!AL!.=aLLTA+l .0£-5n 

N!JM=n 

JI=I 

|j).)=WN+MN 

C Cl IS weal PART OF eigenvalue 

C* +-i‘4 + * 4+ » +-i|t+4* + 4** + 4+ + 4+ + + * SFGMfAfT 1 04 *++ +++++*♦ + + *♦++’1!+++’^** + F+++^ 

4X3 Cl=\/EC f JI J . 

C C2 IS CO^PLLV PART OF EIGENVAuUE 
C2=VEC(Jt+l) 

NUM=F'UM+i 

C REPLACE t ESSEHBURG MATRIX AND MULTIPLIERS 
no 570 i=l rrjN 

C«.+>t* + + *»* + + 4^ 4*+*+* + ++*+*+ SEGMENT 105 * + ** + *+4+4t* + ++4:TMf+* + + 1r4***i:** 
f U b7ij jzifNM 

C't+ 4 + + M+ + * t- + 44fiM'1'4 + + *it:+-Mr+ S'"G*'ENT 106 *♦ ♦ + **^^:*4 + ♦♦H^+++!f^*:^f+4::^: + *4:**1^!4! 
S7D Al lr J)=4j( UJ) 

C+ (■**^ + 4*+'* f4t*+*'*+**4* segments 107 THRIf lOQ 4*i}t*>ti+4'k+4+* ++4+4+it:**!»( 
IF tCif.iF .0. ) GO TO 561 

.Ct*4+^ + *4+** + t + 44 + *4 + ++4^+4t+ SF GMENT 109 *T+* + * + + *4 + *4'+44*4+ + ** + !t:44!4:+* 
CALL RVL.rl AfUMAXf IWT»C1 »9MALL»HN»'fi;^':»EiGVrCft!VFCrCC*SSJ 
jizjnr 

Cl444 + *44+44 + 4 + + + 4*4* + * SEG’-'ENTS liO Thru lll ♦44 + 4++4*4iM(*+* + 4:4*4*m 
IFlL\'LC.cbi.flHM)GO TO 600 

C*4*4444 + 4t+ + + 4 + + + ++* + +***^* SEGMpTFT 112 4* + * + *4if+*4 + +5|!4* + ****44 + 4 + 4+4: 
GO TG sn 

C4 4+44 F"l‘4+ + * t + * ++4 + 4* + +** + *4 segment 1 13 *»* * ** + Ht** + + *+ + ** + + ** + ****! + ++ 
•)bl CALL IVVFC ( A tIJMAX » INT r Gl » C2 » SMALL » Nhi Ml JV f EIGVEC » MVEC t CC . S9 , 7 r RH) 

C NEXT GTATL IlMT IGNOFIES conjugate complex ElGE>tVALUES 
JIbJl +4 

, C*+++*+ 4 + * ♦**++ ++++*+ »+ SEG'^ENTZ 114 Thom 1 1 5 ++**+* +++++*++*+++++*+ 
TF(NVEC.PU.f}HM)GO TO 600 

C * + + +++**+++++*+++**+'* * + ++ + + S*'Gf^FMT 1 14 + ********** + + *+ + + ,(, 

GO TO 513 

C*++++**+*’t **+* + ♦+*+* ***+++♦ SrG'''ENT 117 +*+****+++**++*+++♦+**♦+•+++++ 
GUO CQNTEjIH: 

A.il rf(f.f70,0) (VLr{,I|rT=l*NfiT 

fu r- 1-1 ftj : 




C + + + + + + + + S5^GVflMT llfl ++***++4*+«=++*i^*+m**:»:^** + #*** 

20 WHlTnitj» 7 UD) CFIrtVFC ! Tia) I J=l»Mti) 

7u0 FOKiv^ATflH *5F20.a / »iP20.ti) 

F’jD 


' e 


End PASSli VALUES 193 

SUBROUTINE CALCEV (A » MMAX f DFLf VEC 

niMtf.'SlUN AtMf<«AX»fr^AX) I t/rCU] 

C*+*+*++++-*+’»:»*4t+****++ 5E'^‘'Ff’jTS 13 ? 

If I'Mtf .11 GO TO 2 ' 
c* + »+:+'^4 +*iT+ + + + + t:*Hc + !(r*t+* + *+ S^G^rUT 
1 Ai=(i.R 

A(un')sAfUirU+r>EL 
c STOttr ElftUVftLUES ir, vfc 
Vt r 

VLClIJKtl)-AT 

•JK-=tJK+? 

tN-T-J’Mf 

C*+» + »>' + + +*+-t***f*+ + ++f+i*' + *-* S£ GKENT 
a r=A('.-l,*,'-U+AC,4,N) 

C = A(‘ -1 rfj“l}+AtrirM)-AtNfN-il*AtN 

D I SCS C 1 + C 1 + ‘U 0 it'A ( N f U- ! .) * A t N-1 f N 1 
Ct=)r+i(=++f4‘t tf+*+!».f»+++*++ SEG^^EnTS 123 
IF ( ISC,LT,0.) GO TO q 
C4++4+++.***f+^+-+*-+++»*4+4f** segment 

A AIS.I .U 

C4 ++++4 4*44 *4 *++++++*44 SEGMENTS 126 

IF I^'.GL.U.) go to a 

C4+++*f 4 4 *>44 +.4 + + + + + +++*+ segment 

R i=u . s* I n- sort ( n ISC ) ) 

00 IG 7 

C+*+**44 4 4**4+4 + *4*4*4*>**** SrOt'EhJT 

6 RisU.ti4[R4 SONTtDiSCn 

C4.+*** + + + + + !^+ + +***>**tt* segments 13o 

IFli^l .UE.U. ) GO TO 7 
C44**444 + 4*»+ + * + * + ****4**4* segment 

10 K2=U.0 
00 1011 

C+*** + + **4 *******+********** SFGMF'NT 

7 R2=C/H1 

C*** + *44 *-l *r*>+**+**++***4:+** segment 

11 >OEL : 

'l2=K2 + nEl 
VEC(IJK)=R2 
VECnjK + llsAI 
VLCtIJKf?}=IU 
VECtIJKfSi'AT 
GO TO u 

E4t*+**t f» 4 t^>M *****>*^+4**+* segment 
9 Kl=v.b*o 

AI=-.S* S(iRT( AdSlDlSrn 
H1=R1+DLL 
( 1 jK)=Pi 
vcnjK+i j=-Ai 
VlCnjK+7)=Kl 
IJK + 3I=AT 

C+44 + + 4 > + ■• *4+ + 4 *++ +++ + >*♦*** Sf GMENT 


flJF.iNfN) 

THRU 120 *4*4 + 4!4++f *4**++**+**4 


121 *44 ***4+4 ++ + + *****++***** + ** + 


12? +****+******+**+***4+*+****** 


THRU l?4 ***!f***+*+**+*+++***** 
IHb ***********4 *******+** + ***+♦•+ 
THRU 1?7 **+4**************+*** 


12F **+****+4 +*4+*** ++*****+****;+ 


1 29 **++***+**+***st‘-st*+***+******* 
THRU 131 4**4+******+*******+*+ 
l3? ****++*:*♦*+********♦+*****+** 


133 ****4-**4*******+* t* ++* + + *+++* 

134 *+**+******+******+*****+*+** 


EGmenT 135 **+++***4-+****++*+***+***++*» 


1 36 4f*+*+*****+***+***+***4+***+* 



r»o rs o o n o on 


n IJK=1JK+-<1 
l\LTU»'l:| 
inu 

EwD PASSlf VAU‘E.= 

J5UHP0uTir E t^EALIT 

Cf + +S + + »* + ++.».* + i ♦= + ^^+4;+ Sl^"EMTS 

rt- (SHIFT, Ej. n» ) &o TO ii 

+ + < +^i^- + *** + *4+’* + >f4 Sf'GMrNT 

1 l>03 I=L*N 

3 AlIfT)-rtUf 1)-S»11FT 
C*+4'»:i=+ + + »' * M **>♦» *1' *!(' + *+ S'^GMEMT 

2 --fi-J 


1 39 + + + * + *++*♦**#♦* + * 

llfO ++* + + ** + t^ + + + + !»i *!(: + * + + ++ ++*4: 

141 +!t: + + + 4! + 4 + + + + 


(A»fSVAX»L»fi»SHIFT,CrS) 

»stn 

337 THRU 


n04 151. r‘.* 

C4 » + + +-*t* + + 4’*! + <4***^* + * + **4+ Ei'^GN'E'f'lT 142 +**t* + + * ++i4=S + + 

l‘ENCr''’= ijOKT(Atl»t>*»'’ + A(I+lrI}*+p) 

Cv++’*» 4'+*+++-»4 + ***-****+ SroyRIlTS 143 THRU 144 *i:**4+*+++*+*+++5r*+++T)t 
IP C:'3L'-'u'--,6T.(), ) GO TO 10 


C4.*+++ + *+^*+++*=»-t++ *+*■»++*+:* SEGMENT 

11 C(I)=l,u 
S(I)=u.u 
GO TO 4 

C* *** + + >i:+ +++t =f-*4-*****4-****'»:4' SEGMENT 
10 ca )=A{ I* I l/REt O'* 
5(I1=A{I+1 »I)/PeN 0M 
A( Ir rirjFNO'- 

12 11 = 1+1 

tiO J=li»N 

C+ ♦ + + +4 4*1 +* + 4++4!4 + »:4 + + ****H segment 
F=A(T>J) 

Ai I , j) =A n + 1 , j) *5 ( n +F*C il J 
A(I + 1| J)=AtI+lr JJ*Cm-F*S(n 

C+++++’*' f+++****4‘+4-«f++4t***4.t* segment 

3s CONTIfJUL 

CT +^*4‘ + ++*+* + *4-*+* *+♦ 4< »♦* Sf^GMEMT 

4 CO'jrTHHt, 

TKI.-.riGULAU matrix FoRMEO 
Dos *=L»v 

*iM= + ++ + + + t *.*>4+ **♦*♦ + +++;*:+ + * SEGMENT 
n06 I=L»d 

♦**+=t+++ ** *4: ♦■+*+♦♦+* +++++ f5^ segment 

F=A( 1 • JJ 

Atl» J)=AU»J+l)*StJ)+F+C(J) 

G A(i,j+n=An»J+l]+C<JT-F+S(J> 

^ + ♦ * + 4 + + 4 ♦ + T 1-4 4 * V 1 4 ♦ 4 + * 'i- * * . S'" OMEP'T' 
A(J+1 # J)=AIJ+1» j+U+SlJJ 
,it* + » + ,■♦> + t + t t* + + ^+,i++ SEGMENT 

5 AlJ4 1iJfU=A(J+i»J+] 1*C« J) 

THA’J'ih^VVATIf^N lOMPl'^Tc*;-, 


146 *4:*4i + + 4:*=t-+* + *4!4+*4:+4'* + *+++*+» 

147 + + 4+4c;4:****+4 ++5|c*)((*4r:*ti+f*4*4c+*4tf 
1 4B *+4c*++4s+*!(:+it:* + *4t*+ ++** + + + * + ** 

149 *H<+*++*+4f+*+T’44+++4i4!*+*+*T*++ 

150 ♦ + 4***++*j|.4. + !t!++*4= + + 4 ****++*+ + 

151 +* ++*j|;+ + *j(t4:4 +♦*♦+♦* * + *4*4:*++ + 

152 +* ++++**++*4 ***+++*+ ♦*+***++* 

153 +*♦++**+***+**+♦++ ++4+*+*++*+ 

1 54 +++++*++*+* + ++**+4:*** + 4++++*+ 

155 *+++*+*4****+++ 4*4 *+*+++*+*++ 

156 *+ + ++ + *+ + + + +++* + + 4**+4 4**4++* 


,4*+ f 4 » ♦ t ( ** + 4 ♦ ♦ ♦ **4 + 4 Si oypiTS I 47 TH'lU I 5fl 4 4 * 4 4 ++*+4 4 * + * + + + 1 4 4+* 

IF Ptilr'''.t , ,n.J riFTl'PM 


0 4 44 4* 4» ♦, 44 , ♦ * t+4 ♦■‘ + 4* ** [iT ■JTjO + 4 4 4 4 4 + 4 ♦* 4 4 * 4 4 + 4 4 4 4 * 4 * 4 * + + 4 * 

7 r .-o Tzl/ * 


O S 

un 

vri Q 

if 

fe s 
ea 




. Ct*+*++ + + *+*++**+ + *** + * + *> + * S"G*‘’*^MT 160 ++***+’t!+*+++4+*+'> 

9 A(Irl)=A(lrI)+SHTFT 

C+ + + *++ + *' + ****+ + + + + * + + =*+ + *** SfC'J'rN'T J61 * + ’•'»-5=TT4t ++*+**:fc*** + ++++++ + 

P HiiTUt'ig 
C.JD 

EnD PASSlr UALUE= 36; 

SlJPHOUTIte COMPlTtA*N-^ftXfL»M»ftM0fSlGfJ»AJ 
A{WAx#S4*^AX) 

C 'lOlISl HOLDtH TYPt: MATpICr‘=: lt"jfD INGTEAH OP ROTATIPM'; ( FRANCIS PAPER) 
C+ ♦' + 4 +4 f ♦♦ M + + + + ♦** + ♦♦ tt» i * SrGMFNT 16? * + *!4 + t + 'M‘ + + + + + +++++4444 + + #++ + 
w=ri-l 

PO 1 l=LrM 

C+ ♦+++*+++**♦+*+■++*+*♦* SE6‘-'FNTS 163 THR'f 164 4 4++i*i;(j:4++++*5j;*+**t**+* 
IF (T.Nt.L) FO TO 3 

C4 » * + ♦+»+■♦ 44+444+4 l=+4-* + *++ + * SFGMF'MT 1&5 ♦* + + *+44 +4 + + 4* + ++4*4*+* ++++*♦ 
? l'.i=»(LrL)*tA(l,iL)-STFMAHA(L»L+l)+A(l.+ Ul.)+F<HO' 
IM^^^CL+ifUt-lAlLfD+AfL+t fL+J }“SI9*J1A) 
iU=A(LU*U) >AtL*2rU+l J 
nlL+?»U=0.0 
GO TC h 

C+4+++++*4+++++*+*++++*++++* SrGWEMT 166 ++*+++++*++*+++4*+**++4++++»+ 

3 ni=All» I-l) 
n^jrAtl + lf I-ll 

, C++*4*+** + + + *444++++++* . SE'j'-lFNTS 16? THRM J68 +++++**4++4++++*+4*+*+ 

IF 1 I.Fu.r^} GO TO S 

C + 4 + + + *^ + + < ♦+ ++4++4 + + * + + + + + ** segment 1&P ++++ + *+** + + 4 ++* + *+* + + * + + *++ + )+ 

4 P3=A( I+i*r I~l) 

£,0 10 6 

C* + *+ 4^*44* + 4*+4+4-4 + 4*4* + *.4«+ SEGMENT 17£) + + + *++♦+#++*++ + **+++++**++*++ 
6 t3=n,0 

C+*+4+4 i++4+*++4 ++4+++*#++*+ SFGMF^IT 171.+*++++++*+++*++*++++*++++++++ 

6 □= .TriTiRi+m+ua+pa+oT+ii^) 

C+4++ + 4+++4 * +++4*+*+*4+ SERMEriTS 173 THR'* 173 **++**++**+*+!++++++++♦ 
IF m.t.'FtO.) GO TO P 

C4 ♦+++* t +♦+ ++ ++44+*4*+++++++ segment 174 +++++++++***++++*+*+*++++*+++ 

7 n=-u 

C+*fc^+ + + t:++4 +++++*+ + ++++ SES‘*''Fi-lTS 17s Turn 176 *++* 4 **++*+++*+**+**** 

fl IF U1.FU*G.) GO TO 1 

C + + + **++*'+444+ + ++i - 4 **.*♦ + +++ Segment 177 +* + * + 4*4*4444+444*44+ + 4+++4+4 
R Gl=li?/(U+Hl ) 

C?.=i.3/(U + lil) 

r r=2.'i/(1.0+Cl*Cl+C2 + C3) 

DO IP K-IrN 

C4+*4+* + + + + 444 +444 + + + 4+: SEG^'ENTS 17P THRN I7g »4444*444**:44444*+4+*4: 

I II- II.F0»F) GO TO 12 

C 4*44 +4++4++++4+++44+ 44 *4+ ++ SfCMENT LflO 44 44 44+44 *44 4+ +4+4444+4 444+44 

11 G=E=< (ACIfKH-Cl+AU + l*K)tC2+AflF2tK) ) 

I A^I^^)=A[1 fKl-G 

AU 1 1 fK)=A(l + l »K1-Cl +G 
A 1 1 + " » = A 1 1 +F tF 1 -C ^ *S 
4 . (.0 f'1 10 

C * 4 44 4 4+ 4 * ♦ ♦ t +4 t + 4+ 4 + + + * ♦ + 4 + ST GMI TIT : IflT 4+ (< + *+ + + 4+ 4 4+444*4 +4 + 4 +44 + 4+ 4 

12 (V-EMA{IfK)4ri4,\(l + l.K)> 

A 1 I r K) =A ( I r K ) -f 
A tH I rF )=aU + 1*k)-C1+S 

C+ * + + 4 ♦ 44 4 I + » + *4 + +* + 4 4 ♦ » 44 ♦ 4 SFGM!-,MT IP? } *4 4 +4+4 44 44 + 4 + 4 444*44 4 + 4 + 4*4 


ID CONIID'IL 







t 


f 


t 




J 






J 




J 




yj ■ 


C+‘M<t++>+*++*4:**++**+++ SEGMENTS 183 
IF (I,Eu,LJ GO TO 14 
+ » + + + + + + SFGMEMT 

13 AlIiT-U=-D 
Atl+1» r-l)=D.D 

C**** + *i‘4'»^=t=***+^c*4?h-*+* SEGMENTS IBS 
IF tl.Fj.M) GO TO 14 
C4 + 4 +.+**+♦***+ SEGMENT 

15 AlI+?rI-U=0.0 
G MOW OHFMATIOM CO^'PEfTER 

Q^4r4444444 44 4 ** 4441 *** 44 *4**H SEGMENT 
,14 J~I+? 

C********* +**+**♦+****.* SrGMErlTS lOQ 
IF tJ.LL.N) on TO 17 
G4***4+4* + i-+**** + *********** SEGMENT 
US J=I) 

c*+*** 4 ♦.*+*•*+ ♦*+************ segment 
17 NO 10 K=LtJ 

C4 4-4+ 4 + 4 + M 4* +**♦*♦ *s + * GnFnTS 104 

II I I on TO ?H 

C f* ++*♦ + ♦ + ♦ ****4***4* ***.** + + jr.GMFMT 

10 G=r+ lAlKr l)+ri*A(Kr I+n+C£*AlKi I 

AIK« r)=A(K»I)-G 

A(Kt I + U=A£K*I+n-Cl+G 
AIKrTFE)=A(K* I+a)"C2*0 
00 TO Id 

c +♦♦**+ 1 * 4 -+ *+*******+*♦***** segment 
ao GzF^'tAtKrU+Cl+AlKtl+l) ) 

AtK» I)= a(K»T)-G 
A(Kr ! + l>=A£Kr I + l]i-Cl*G 
c*+*++ 4-**++**+*4+*******»**+ sr Gwent 
lb CONTTiJlJE 

C*4+**+ * + **+44********+**4 + * SEGMENT 
J=I + 3 

C*.4:* + ** + * + ***** + *+***** SrOM^fgTS 200 

IF (J.GT.Nl GO TO 1 
Cl****^ * 4 . + * + <‘ + *'+ + 4 * + *** 4 *+*+ segment 

ai G=E*ca*Ati+3»i+a) 

Att43fi)::-G 

MI+3, I+1)=-01*G 
A ( l + ^f 14'>)=A( I+3»l+’>-Ca*G 
C COLlT'il UOLNATION COMOLET*"S 
c,^ ********4 ♦+♦*♦ *+*4+*4+++** Segment 
1 C0T4TT(Alb 

C*** **+** + 4 ********* ***.*+**4 SEGMENT 
Oj-TUf'iT 
ErjD 


THRU 1P4 *t4*+**+********; + **+*+* 
185 +♦***;+**+**+*+*********+♦+*** 

THRU 107 ****+**+******+******* 
IflB *******:*****♦++****+*** ****** 

IbO *******:+*++*************♦*+** 
Thru lOi +****+***rt***+******** 
192 * + **:*******♦**♦*+*******+**** 
143 *'**■++++********+++******♦*+** 
THHU 105 *'** + 4** + 4 + + *444444* + ** 
iOti ***♦ + + *** + 4 **+* + ♦*+ 4 * +++***** 

1'97 ++**•********++**********+***+ 

19B ** + ♦*+*+*++***********:******:* 
199 ****♦*+******+*************** 

Thru 201 *++**♦***********♦**+* 

202 *******+******:***********+*** 

203 ****+++++*+♦*♦+*************♦ 
?04 ***+**+*+****+*♦+***+*♦*++*** 


VO 


E'.U f*ASSl> VALUl= 65 

SiJHfONTlTjE RVEClAiM.'AXrl iT»Cl*SMALLfNiNlJf1iEIfiVFC»NVEC»IMTFRfY) 
EIMlNGION AINMAjONMAVI flNTFRll) fY(U rlMTtl ) »FIGVrClNMAXrMf’A/> 
C*4+*+* ♦■*+ **♦*** 4** + ** ++**** SEGMENT 205 **********+*+♦*♦♦*******+**** 


IVl Tr|,i.' 

C4****4 ♦** 4 + * + ***+*+******** 5! GMpfJT ?06 * + + * + * + ++++***♦***♦*** + *♦**** 

1 Aa>i)=Aiiii)-ri 

C* 4 *♦*+ ♦** 4 * ♦ 4 * * 4 + *4 * ** ♦ * 4 *♦ SEGMSNT ?07 * + **+**♦+*+***♦***********+* + 

n-ja T-at.’! 

C** 4 *** 1 ** 4 *+*******444 St OMF jTS 20 Q THRW poo **+ 4 ***+******+ 4 ****** 


P12 ** ♦ + 

2l3 ^* + + ++it:H>.***Ttrij! + + +*i»:++*+i)e+*+**V 


2l_q +*4=V+ +++ + ^#+>lr++*+it!|,+*f+* + ^ + jt* 


2J5 thro 


?16 ♦*+*+++»++*’++*+++++jji*4 


IFl AuS(A( 1^1 1 1-in ,f!P. ABS(fltli l-l) ) )GO TO A 
Cif + + + ** + + ** + *+*++ + + * + *^^++*+ SrGMFMT Sio ++*T + *4t+++*++**+it**3|:+***+*^*+ 

3 Ii4TEn(I)=I 
J=I-t 

DOS 

Ct + *+»+ + +‘»-+**^*’)*=l=* + + * + ***** St.GMF''IT ail +J|(’r+* + *»+ + +* + +*5((+:»c* + +4: + +*4:*+ + 

b=A(I-lFKJ 

A(I-lrKT=A(I»K) 

«**it* + **T* + * »:* + **** SsFGf^nMT ?12 ♦+ ♦*++^!+++ + +**+++*++’f++*+*+*!(r 

S 

C + + + SEGMENT 2l3 >* + + ++:t:****Ttr'j! + + +*i»:++*+i)e+*+**V 

GO' TO f, 

*++* + tt + » + + + + t**!|t+4-:<<* + + S*"GMEMT am +* + V+ +++ + +++>lr++*+ie!|,+*f+:t: + ^ + jt* 

4 lHTlI'tI> = I-l 

Ct segments EJ5 thro ai6 ♦*+*+++♦++♦’++♦+++++41*4 
ft IF (Adrl-U.EQ.n,) Rf) TO a 

C, + *++*+,* r 4 +*+*+* +++♦++ + *+ + ♦ segment 217 *+++++++++*+++++++♦+++++++•+♦+ 
C=-;.(I»i-l)/AtT-lfT^l) 

A{l»I-l)=C 
no r. K=lfU 

C* + + + * + + + + t + **+ ++ + *+ + 4,+4 + ♦ !((+ SEGMENT 210 + + + + 1'++++++ ++*+++*++* ++++*+++ 

H A(I»K}rA(lfK)+C+AlI-lfKJ 

C»i*+++++*+++*++***+*+++*++** SEGMENT 219 +**+*+*+++*++++*+++*+*++++++* 
2 COrjTIf4UL 

C TKIAOoULAR MATRIX Formed 

Cn*+++ +++ •=♦+>+++++**++++♦ + *+ SrGMENT 220 *+++*++*++**+++++*+++++*»++++ 

nOQ 1 = 1 rfl . 

C+++++++**+ ++++++*+**+* SEGMEfiTS a?l THRO 9?2 +++++++++++++*+♦+♦++♦+ 
TE( <'dS(Att»Tn ■''’K#S‘-1ftLUG0 TO 9 

Ci + * + * + + * + < + + + + + + +4**++ +++ + + iiEbMENT 223 +++++++*++♦++*++.+*++*+*++♦ + ♦+ 

10 A 1 1 f 1 ) =S»’’ALL 

C4+++++ »++++*++++++++++♦+♦++ SEGMENT 22U *+♦+++++*++++++++♦++++++++♦++ 
9 CONTIuUt. 

C MORMALIbED ( ( EIGFMVECTORU OF HE5SEMBURG MATRIX OBTAINED FOR RH5 = 1 


a 17 *+++++++++*+++++++♦++++++*•+♦+ 


am ++++ 4++++++++*+++*++*++++*+++ 

219 . + + + +*+*^t:+ + + + + + + *+!tl+* + *++ + +++ + 


220 *+++*++*++**+++++*+++++*»++++ 


op2 +++++++++++++*+♦+♦++♦+ 


22U *+♦+++++*++++++++♦++++++++♦++ 


C4 ++++*++*'< ++++*++++ + ++++*** SEGMENT 225 ++4+++++++++++++++*++++++++++ 
no l»5bS T = 1»N 

C ++++ *■4 *• ++++++++ *♦++++* +++++ SEGMENT 226 +++ + +++ +++++ ++++*♦++++*++++** 

ssss Ya)=i.u 

C+++++4 4++1 f++++*+++++++++t+ SEGMENT 2a7 *+++++*++*++++*++*++*+4+*++++ 
Ou n^'un 

C++++++++fr+*+++++*++++++*4** SEGMENT ?PR ++++++++++♦++++++***++*++++++ 
7777 YtMJ=Ylu)/AtNHj) 
lUYf^O 
0011 1=2 rM 

C + + + + + + + *++ + 4 + t + * + +* + + +++++* SEGMENT 729 ++* + ++•++++++++++**++*+*++++++ 

ffo.r 

E=Ntl-I 
D012 J=2rl 

Cf + * ++*+ + + 4 + *+ + .*+*++***+++++ SEGMENT 230 * ++++++++++**+++++++♦++++++++ 

E=NKl-T 

C + + .i(+ + |: + + + + *+ + *f++it; + *++# + i** SEGMENT ?31 + + * + + + +++*++++ ++* + + * + + ++**+++ 

12 r=EtYlU) *AtMfL) 

C + + + + 4 1 4 + + 4 ♦*+****♦+ + + + ++ + + + S^GM('^JT 232 +++•+♦+++++•+ + *+++++ ++*++ + *++++ 

YlM)=tYtMJ-E)/A{M*M) 

Cl ++++ + t + 4> + + ++ + * + + ♦+++ SFRMfijtS 233 THRU 23il +***+++++**++*+++++++♦ 
1F( ftHSU')»GE» A75(YtMjnG0 TO 11 

C t *+*+*+*+* + + + + + ♦+ + f+ +++* 4 4* SEGMENT 2,15 ++*+++++++++++++++++++*++++++ 

13 ’ -yi'i) 


225 ++4 +++++++++++++++*++++++++++ 


226 +++ 4 ++++++++++++*♦++++*+**+** 


jEGMENT 227 *+++++4++*++++*++*++*+4+*++++ 


pgF ++++++++++♦++++++***++*++++++ 


229 ++* + ++•+++++++++++*++*+*++++++ 


*++++++++++**+++++++♦++++++++ 


231 ++*++++++*++++++*++*++++**+++ 


232 +++•+♦+++++•+ + *+++++++*++ + *++++ 


23ij +***+++++**++*++++++ic+ 


\ lo 





C + ♦=*+♦* ***♦*++++*+♦'’*' bl GMEMT P36 ♦♦+++++»+**+ + ♦+>)'+♦*+*++♦*#*+* 

U CONTINUE 

C***** + + ++^+++ + **+*+*+****+* segment 237 ***+*+****+>M'+*!^++++’»:+*+*+++}ff 
rjulU I=ii,N 

: £;4.pHt*.4; + ^+.^ + ♦ + ;♦: + + + SEGMENT ?3R ** + * + + *++*++’r5*:=Klr ++♦♦*’»?+ + +*♦++ 

14 Y(l)=TCi)/G 

t+> + * + *-+* + p»ti<(Mf segments ■ 239 TllliH *>40 4**+4;**+*!|;+***J4t;t*>t:++*+ 

IKl JJ0J.FJ#4)G0 TO &Fifi& 

C4 H + + +4 + 4 + * +4^i + 4* + + * + ***:ft *+ bSGM['NT 2tfl * + + **+ + ++*****++* + + * + H‘***’»:++* 
UulS l=2fN' 

C++i»:it*4=++'l'*if+++++++++>t‘l^ SLGMErjTS 242 ThRU p43 +ifr+44:++++++»*=tt+*++++++ 
IF ClUTLntl) .ME.I) GO TO 15 

C*+*+*^++< *+=f^**=*^***=t‘*+*+ SEGMENT 244 ++>**++*+*+4!*^***++*T((*+itt**+++ 
16 H=Y{T) 

Y(l)=YU“ll 
Y( l-I )=H 

Cf* + + * *+-++*^+^+***‘+=**+** SEGMENT ?4>v * + * + ** +++*+*i'*+*+'^+*+*++*'*+*+ 

15 YllJ=Y(I)+A(I»I-l)+Y{I-l) 

+ « * *+-++^+*++'t=+***-<'** S!’b^1E^'T 246 *** ♦+*♦***'**'*+♦++*=•'++++ + *’*'+++ 

(v4ti5 Coni iniil 

C LIGFNVEcToN ok HFSStNBUHG MATRIX OBTAlNEn {NOT NORMAL TZEO) 

Ctf + + + + -f4’H +4 >•» + ++* + + ** + **+:+ SEGMENT 247 ♦* + t-Mc + f*-* + + *++4»** + *++ + **+++ 

IjOtjO •■ -f J-* ) 

00?1 l::2»M 

C*-*f***4 + '*- + + + ++* + + + * + **>t'*t** segment ?4R ** + * + + 44t*-E+++’t:4 + + ++i! + * + *+*4: + 

J=tr+v-i 
L=J+1 

E'u2tf K»— LrN 

C + 4 4*. + 4.*+4*-4 + .* + + 4++ 4+ ♦ + + + + *+ Sf GMfNT 249 *+ 4 -i 4 =* 44 **>» 4 :*** + *+*-4 + *4!)(* + + ** 
au YtK> = Y(K)'"¥t<J)*A(KFj-n 

: C* ♦ + + + +♦ + * + ♦* *■>=•'■**’*■* + ***'*•♦+’''* Sr G*’ENT ?.^U *♦ ♦4* + **4 + 44.44*.+ * + + + + + + + + ^:*+i' 
LL=tnT(N-IJ 

Cr*44++t**++++++t*6+++* Segments 25t thru '^52 *+*+++%+++****+++++“♦;+’(« 

IE (vl,Eu,LL) GO TO 21 

C**++ + + 44* + * + *+ + it’E*4+ + f SEGMENT ^*53 ♦♦4+++i44r+!t:4+**++++++** + !*;’|!++*+ 
19 ii=y(J) 

Y{J)=Y(LL> 

Y(LL)=li 

C* *4*4 * *44 4+ |.t*tM:4* + » + + ** »** S*' GMEMT 25U **4-* + **+* + 4* + + + 4****i* + ** + + + + + 

21 -corii irj'iu ■ 

C NrjrU)EnAt-iaEU LIGFNV- ' OR OF OKIGTNAL maTRTX f>PTATNFD 

C4*4*4*44* 44 *44t44**44>' t*4*4 S' GMEMT 2Sb ** t * * + 1 4 +4 4 4 4 + *•4 * +44 4f *+♦ + + *♦ * 

P-n,'' 

0O2,' 1=1 »N 

C*4444.* > 4« * 44 44 444 * 4**4 Si GMENTS 256 TURN 257 4*444*44 + +*44* + 4+++*+4 
IK I 'nSCBl.GE. r,r*S(Y{T>nGn TO 22 

C + * 4 4 44 4 4 ti + + 4 + 44 t 44 + 444444 '* S'lsMEf TT 255 + 444 * + 4 + *4 4 4 * + 4 +++** + 4 + 4 + +++4 

,>-YtT ) 

C4 *4*44 4*» 'J4 t 444 + 4 4444*4444* SEGMENT 259 4 4 * 4 4 44 *4 4 44 4 *4+444444444 4*4+ 

22 L J!j f TfJUL 

(;j**f)if + 4< *'4*4 4 4 + 4 + 4 + 44*4*44 SEOMEMT 2l>0 *4*44 + 444444444 + 44 4*4 4 + 4*4*44 

'H;2* 1=1 »U 

{2 t * 4 44* < 4 • + * * +4 * * * * + * * * 4 4* 4+ SEGMENT ?61 *44** *4444 44*4444444444444444 

2R YtTl“YU’/R 

C 'R'R . .\UUEL» rlGENVEGTOr? 0"TUMtP 
C EUT Tdl IRL.AL E rnrfiVFCTORI IN FTGVECTNiMMOFFVrD 

<• . + 4 t 44 i 4 • +* 4 + 4.4 + 44 44*4* >*■** Sf'GMtNT 262 *4 *444444 * 4 44 *4 4 444 4 444 4 4*4*4 
1 'in 1 = 1 »fJ 


L 





+ + + + + + + + + ^ SEG^1£NT ?63 +***^r+!(<+++4***t:**r + + + + + ^* + *4:;K:»f 

100 EiGvF c<Mnr-'»iJ=m> 

C * ♦♦♦ + +f*-+t*t»*****+» + * +=♦+ + + SrCiMfiNT ?(j4 *+*+»+i|< + + + +»+:i=* + +^-***+ + Hc+**+* 
»?LTU(?rj ■ 

F»jn 


t 

j 

V 

j 

b/ 


E- 'i PASSif VALUE= 7fl 

SuHK'^UTiMj: lMVEC(ArMMAXi:NTtCii AMiJfSMALL»MfN'lM,ETGVEC»MVFC»lNTERi 
1Y#2*!) 

ra'-iL'T'iiufj JUfjMAXiNMAX) » itjTrn(i) rYtn iZfii »itjT{i) »n(MMAx»M^-'AX) I 
IK ICVt (.(rj^M'rMMAX) 

c *.»♦«■++ f ♦ + +>*» + + + + + ■** +4++ + + + Sr.GtIF'KT 2 f,r, 4 + +* + 

ru}''iii 1=1 in 

C»*+*+*«-*» i* + + 4T*+++* + * + * + 4+ Sf'Gf'lFNT ?6tl +1^++ + ♦■f44l♦:4>^+44+■+**444 + 4 + ^t++4 

I 'JOII J=1 1 fl 

C ♦* K+ + * ++ *+*4 + 4 + + + ♦ + + + + **■ In GMEMT ?^7 + + + + + + +* + + + + + + **+++»+++*+*++* 
so tMIi J)=U,U 

c I * •♦ + t + *i + + 1 1 + ++ +4 ♦ +*4* +4+4* S* 0'^'"NT ?6P *+ + +*4t+ + + + + + + + + *t*4.+ + + *+++*+ 

«'G1 T = l,fJ 

C**++++*++4+*+++++++++++***+ STGVFMT J>o9 +* ++4++*+**4+*+++*+**+**+*+*+ 
Atif tJrAlli I}-C1 

O’* ++♦++++■»♦ + * + + 4 + + ++ + + + + + + *+ SF.GOFNT ?70 *t*+++ + + *++ + 4+++*+++4 ++++*+++ 
1 '=lliI)=Li<ifn-A:AU 

c* 4 + + + + + +*+ + 4+ + + + + + *+ + +** + + + S^ti^'F^'T ?7t *+4*4 + 4 + *4++ + + + + 44.4** + +* + *,++ + 

Tvt? 

c ♦ 4 +* + + + *+■»+♦ + + + +**++* + + ♦ + *+ S[ G^T^^T 27 ? +4+ + + + + *+4 + 4*+ + * + 4+4 + + + + ** +++ 

C=An-liI-l)+Afl-lf I-D + m lT-1 »T-1 )+‘UI-l iT-l) 

0=Al TiT-n+Anr I-IJ H'(I>T-l)+l!(Iit-0 

C* ►44**** » + f+4 + f+ + + +>44 ?73 TilO’l '’74 + + + + + * + + ++* + + + * + *++++♦ 

Ir cr,(,i,,tl) 'iO TO 4 

C4*++++++ + +>4 + + + + * + ++ + 4 ++.+ *+ ^rGMI'fJT P7S 4 + + + t + + ++4: + +4++ + + +++ + + + + + + + + + 

?. 1 JTt.^Ml)=I 

,.-c 

c=r? 

- ■ 0=6 

4=T-t 

•lias K=JfN ' 

Ct4*4 + *4 ++++*++4+++++++*+4++ SFGMKMT ?T6 *4* +*+*+++*+++++**++♦+++.*»++* 

Ci=All-lrK) 

AlI-1 »K)=AlIiK) 

AtI,K)r6 
A=(! I Ti“l iK ) 

C 4**4*++4 + + + + + ++++* + + ++*++*+ bFGMf’MT ?77 ++ + + ++ ++* + *4+ ++++++ + +++*+***+ 

5 u( I iK ) =vj . 

C + + +++***** + ++* + * + ++**♦*+ + + + SFGMF.MT ?7A + + + + + + +4 + +: + * + *+54+: + **44+-|: + **-4:+ 

r o o 

C ++♦.+ *+ + + + +++++++ + + + * +++++++ SF&MrnT ?79 +*+*+++*++++**++++♦++*+++:+♦++ 

iiiT. ''tn=i-i 

C+ + ++++++ + +*+ + + + + + + + *++ SFGMFtlTb ??0 Tf-I4tl ?<11 +++ + + +++ + + 4 + + ++ + *++ + +* 

6 IF l^'.Fu.u.) GO TO ? 

C* +** + +'++*** + + + + + + + + + * + + + + ** bFGFlFMT ?fl? +* + *t +++ + + + + *++++4++++ + + +++++ 

7 v. = AnrT-U 

All, r-u=-ia+A( J- 1 + 1-1 T-i)*o ( 1 - 1 , 1 - 11 ) /c 

i u , T-M =-flM (1, 1-l ) + A{ I-1,T-1 )-G + P( T-l » I'l n/r 


JnJ C , ♦ I + 
0 


ru)J< j , r’ 

* + t ,«4t«444 + + + t +, + + + * + + s‘'6^';'ftT ?S3 ++ + ♦+++* + ♦+ + + * + ++-* + + * + *4+*+++< 

A 1 I »=An;,lv) +AU iT-n +AI I-l rKl-M(T , T-i J +5M I-l ,K ) 






** + ***'*-**+4=++*****++t+ + ** bFfcMfilT 204 +*-♦ *f* ++♦+ ++* +j(t++++++*+:f+*+++* 
B taifK!=fVtIrK)+tHTfT-n*A(I-lfKl+AtI»T-l)*P(T-UK) 

c* *+♦ t + ♦*♦+ + + + + + *=♦■ + **+**.*-*'** ftLbwrtJT ? 0 *i <('if**v»i* + + * + *+++4;-++++if + + *+5f*+*-+ 

CbMIWUL 

C T4 I, .’iGUUAH matrix FO’’''FO 

c» ♦■ + ** + + +' + + + *^ + + + ’*' + + * *=+ SFbMf^MT 2f36 +*»f *^^ + ** i' + + * + 4:+*t+l<r*i|i+ + :ti**+ 

uOC) 1 = 1 rtJ / 

c* + ^ -M-t +*t ++* *+>!'+ Sf.bVrNT 207 +-* + *+++»+*;f!4::<(+ + :(cit:=t:5*:it::|r:<c4 + jti4:!(c*3(c 

C=AU iIKrtdfll+BtTfntHdrTl 

»*'* + + <'* + ♦♦ 511^^-^FNTS 200 THR'I 709 * 4 -*++ it4:+4:>(f4c)(<t4++*+'!)‘+^‘+ 

IH tC,Ot.bMALL} GO in q 

C + *>++*>*+-+^-++* + +**+**+-*-+t+* SLGMFtJT ?GD >k*+ 4^ *+4if'+*++it+*++=t:+^*+*+++=tf+ 
Adflj= ‘’lORTt SMALL) 

l>{l*M=,,o 

C*+'ti+»**** +>4 4-»+ + + + *1 +++44 ** 'j'*b‘-TMT ?ql: +*4 + * + ** + 4 t-i+:4: + 4 + + + t4 + + * + +++ + 
Q t ortt TrjUL . 

c* *'♦♦♦*<' + + ♦+ + + + '*+*^’* + * + -*** + + fJf ?‘>2 * + + + + -* + #!**’t+t++ 44444444 + + + 4-4 + 

''■>) Idl T = 1 iN 

C*t'f^*'4-*»- + **i’ + + + + + + *=t’ + + + + *j*++ SFGMf'NT ?93 + + *+++* +++*i-*+ ++++++^*!i ++* + ■»(+ 
Yd)=l.U 

C + t*+^ + +’<‘++;+ + *=t'* + +* + * + * jFGVF^lT ?04 * + + * »444 + 44** + 4++!j!+-+* + 4 + 4 + +;*+ 

lUl 

C****++* + »*+4 + + + + *** + + + +*4*+ SFGMFMT 29S *+**i:4* + +4* + +!^ + *’t(** + *44:++**+ + 
lo n tbO J-JJ=li4 

C< t ♦ * * ♦ » ♦ ♦ t 4 4 ++ + + 4 * 4**'i»i + =t:* Sf'O'^Lf’T ?0G +’»-f*+ ++*+++- + ++4'"4;**+ + *+++>t;4*4:4t 

C = A l'3»N) 'tAlfJttjH(HNfni+n (tgrii) 
b^YlM) 

Yttl)=lG+A{N»rj)+/i(i.t) +«vnj»’i) )/C 

<:i*i)Fi/tn) + * ) )/c 

i^OlT 1 = 2 »« 

C + « + * + *’* *'4 + + * + *+ + **+#4 + + + * ':>FGMENT ?97 ***+ > + *4t + ****44 + **** + 4 + *i:+^* + 

^=n. n 
r=u.o 
r,',=r;-ti-t 
f^Ole J=2rl 

Ci*.*444>*+ •■’''+4+ + + + 4 ++*44+* + + * SrGVF^JT 29R ***t + + **+44‘ + +4t+*4'* ++*+4+++'^4r* 

.L=^J^ J-T . 

=F+YtLMAlMi!t)-?(L)+n(M»U 

Ct* + + *t ♦**'*+* + + *+*** + *+4;+*t* ?nq *4 ****+*+4-* +++*!((+*)t!!}-++44:**+4* 

14 F=F + Y(U+LitMiL)47tL)+A(M»L) 

C * * 4 *. + i + 4 + 4 f ♦ +*•♦ ++ H*++4 4 4 t + GFbMFA'T 300 * + + 4+4 + 4 + 4 + 444+444 ++44* + *44»iv 
v=Yl") 

V (M)-db-L) fA(rifM) + {7(M)-FJ*RlWi^'n/'^ 

C+4 + 4 4* »4+ 4 ++ M *44 + + 4 ■* 44 * + 1^* S’ bf’F.NT 3ni ♦4+t + *4 + + **4 *+ + *++4+4 t‘* + +*4 + 4 
17 .dv) = d^(M)-rWA(MrM)-tF--E)*R(M»vn/n 
C4444*I * * f4 + '**4-l' + 4*44 + * + -<t SLuMEL'T 302 +‘b + **44‘*+44 + 44: + 4+44+* + + 4 + **** 

■ =0 . 0 ' • 

1 = 1 rTJ 

Ct+ I 4 ♦> 4 444 + 444 44 4 44 4 **4+ SrG'''FNT 303 ♦ + + *l=44 + + 4:+*444;* + 4*+-44!|<?:*++*>l' 
t =Yd )+Yd) F?tIJt2d) 

C** + 4 + * «-+ + * + * ♦■4**4+* + ++ SrS’lF fTS 3flq TH*^” *05 ***4*4+* + + +**+** ++* ++* 

IF {’'.Gu J ) CiO TO 51 

C »■**♦ + *+♦♦+ + + + *+ + + ***** t**** SFoMriiT 306 * kT + ** + **4 + 4 ****+ + 4 + **’Mt** + ** 

: bP. f =F ■ ■ / ■ 

r' L=i 


^ 5l COMTlri'JL 


;^A7 ■♦*** + ***■ + *** *4 *4:++44 +4 + 4 + 4444 






U O O O «J U O U I* ou 


C-*: ♦♦!(!+++++ + + + + 'irijMI^HT 308 + + + + 4^* + !|-+ + * ♦ + ***♦ * + + 

A1=Y(L) 
rt2=2lL) 

DOm 1=1 rN 

C+*+mi^4 + #4 + * + + + + ^+T4*4, + + !j.:ir|fji SrG^ENT 309 +*+*+:4*i<4++4 + + * + *+4+*4 + + :f: + + +4 
i.=Y(T ) 

Y(I)=:(9+Al+2( n+A 2 )/F 

Ct'*‘*4 + 4t- + =t • *'+44!f +++4 + +4 + 4 + ** SlGMEMT 31(1 + *4 t ■*! + 4 * + + + 4+444+ *+ 4 *4 + *4++4<i( 

l‘t /(I) = (7tT)+Al-<74A2J/P’ 

C» t.4 + + +44t ♦ *. + + + 4 + 44 + 4++ SE'?‘''EUTb 311 312 + 4 + + + + + +++ + + 4++44 + +++4 

iKJJJ.LQ.ff) GO TO . 

C+ 4++++ ♦ + +* + +++++ + .« ++++++++4 SCbMi'NT 3l3 + +++4+4+ + ++**++*++44++ + 4 +++++ 
fiUlb I=2»f'i: 

C4 +++ + + ++^ ++ + ++44 + 44+++ SF G^ENTS 31'+ TH'^U 315 4+ ++4+4+4*4++4++4 + + 4+4 
U;' naTuPlII .tiE*T ). GO To 30 

c * * + + + + *4 ♦+ + + + + + + + + +4 + 444+4+ SE&'TMT 316 + + +*44+.+4 + ++ +4 +4+44+4 + + +44++ + 
Ih 0=Yt ^ ) 

Ytl)-Y(i-l) 

Y(I-1)=G 

c;=2tn 

7U-1)=6 

C44 + + 4 + -r4 ♦ t + * + 4+* + 44 + + + 4* + + + S^G'-TMT 317 4 +44+4++4 + 4 + +44++++4 ++4 + +44+4 

30 Yti)=Ya)+A(i*i"ii4YfT-i)-i.mri-i)+z(i-n 

CV++++4++* + +4+4+ 4+4+4++++444 STGVtNT 316 44+444+4*4+44++4++++444444+4+ 

15 ZlD^Zdl+ndf T-D+Ytl-l ) + ACIrT"ll+Z(I-ll 

C +■+ + +4+ * + I ► ++ +4 ++44 + 4 + + + + + *4 5F'G^'L(^T 3l9 4 + +4 + 4444 ++44+ +444+444+4 + +44 + 

,■.680 C JrmrtHL 

FIGl'IVEoTOK nH llFSSi 'MI'ir-. '-'ATiax. OilTATHLn 
*» + + +♦* + ♦ ^+♦.4 + + * + + + 1 + i + + *44 3p0 444 + +444+4 + + 44+4+444*+44 + 4+4+ 

nop 3 1 =c!*A: 

+ + + +4** + + +++4+ + + + + 44 + 4-++4 + + 5rG.M‘*’'’:T 3?1 4 + *444+++4 + 4444+44 +44+ 4 + 44++* 

v'-f.n ’ -I ■ 


I -Jl 1 

*10P1> K=L*t'l 

♦ 4 + + ++ «■ + ■• *^ + +4:+4+4++ + 44 + + *+ 5( 32? *4 lt + *4444 + + + +4+M!4*+44+ + 44++++ 

V3K J”r(K)-Y( J) + A(K* J-1 )+?(J)40t.', I J-n 

*. t ++ 4+ *4 ♦ t ++ + * + + + + + 4+ 4 + 4^ 4+ *)'' 3p3 * t + + + 4 + + ++4 + + 44+' + 444 4444+ * + 44 

20 + t+ )- XtK)-ZlJJ+A{K>J-n*‘Y(J)*rtK*J-ll 

4 *+ +4 * » 1 « * + ■! + 4 +4 + +4 + ++ + 4 + 4 * Sf'0'*6^‘T 3a(( 4 + ^ 44444+444+4+4+4 + ++++4 + + +44 

LL=* 

4.+ +4 + f + + ♦♦ +*4+4 +++44*4 5l.G'*FiVTb 3?S Thru ^?fi ++4 + + +4 + + + + + 44+4444+ + 4 

IF (J.ru.LLJ GO TO 2l 

* *4+++>4 * * + + 4+ + + + + 44 +*>* + *+ b^GWEt-'T 3?7 ++ + + + *4+ 44+4 + *44 + + 44 + + 4*4+444 

lU 

Y {J?“Y(LL> 

Y(LLl=G 

,’(J)"2LaT 

ZtUM-G ■, . 

+ + + + 4+ * 4 * 4 4 +44+ + + 4+44 + 444 4+ S" MT 32*1 *+ 4+ + 4 + 4+444444+ +4+++4 + 4+ 4 + * + 

21 rrjlT'jut, 

I'.Jtlo : ,.1ALTZa! LlGENUtCTOH OO+AlNfO 

+ +44+4 44* t +4 44t + t +44*+4 ++44 bt uVE^'T '^ 2 '^ + * + 4 + 4 4* ++* 4 4 + 4 +++++ + 4 + 4 +++*4 

4 ■ . 

.102, ' I “ 1 ( 1 

C + 4 + 4.44 +♦ 4 * I *4 + + '4++ + + 4 + + + + + * b’”G^T'';T 33 ^ 4 + 4+4444++4+*4+ + + 4444*+ + 4 + 4+4 



F=Y(I)*Y {l)+zn J +2(l ) 

+ + + + + 5t^"'Et-jTS 3? 1 Tt IRM 33P *+* + + *i:* + ++*!t!**+^+++ 

IF IE.GL.F) go to 2? 

C + + + ++4 ► + + + S‘'GwFNT 333 +**i«+++++*»>ti++t+**+^+**++++*+ 

23 F = F 
■ ■ L = I 

C + ■»=+»+♦ + ■*•* + !►++* ♦ + * + ’» ++T**** Sro'-H^NT 334 ♦*=*:+++++♦* 

2? CuNTTlJUt. 

Q ^ ^ 4- ♦ + + + ++^-J:+*» + + r^ ^:+ S IG*1tfjT 335 -t + Mt** + * 4 * H- ♦* +***+** *^*+++ 
AI=Y{L) 

A?=ZCL) 

I'-JP't 1^:1 fN 

. C 4444444 ++ +^* + + *+ + =»***+**>r** SF6MFNT 336 ++’♦ 1<'f* + ^**++ + ^+ + +’t:i +* + ***+++* 
G-Y(I) 

YU )=ig4^ai+z m-^ft?)/E 

C4 + 4* t4'»**t4+4* + 4 + +**4***^** SFGMC^3T 337 +*'»i'44+ + ** + !t: + + *i:i(i + + !M *-4 + + ***4 

24 Z(I)~lZm+'vl-G + r,2)/F 

C ALItFO EIGr:wECTOR u'^TAll-JEO 

C POT Y ( I) IKlAL PART) IN rXGVFCT ( MUMOc-pV, T ) 

\ C* + + ♦ + *> + + =»♦'***♦**’* •♦* SFOPCNT 334 . + *+44 + 4 ****#♦♦ 

i.4:/ lOD 1-liN 

Ct4+++*+.+ + *+*4***+*+4=*-+*+,+ »* ‘jFGMFMT 339 +*+++++**+++++4+++++# ++++++*+ 

lun »:iGVFC(NllM,I)=Yni 

C + **44+ t/M '^ + 4 ++jH+ 4+4-++4* + + 4* 5*"Gf.irNT 340 ++++*+♦*****+*++=*'+++*4+*+*++* 
fjtjf-1=f*UM+l 

C PUT ;?UJ ICOt-ipLCY PARTI T^! trGVF.CTt MU^IOFPVt 1 ) 

Du I'H 1=1 rU 

Ct + 4**+*+*’M'+ ► + + * + 4+ + +*+4*** Dr&NFMT 341 ++ + + + + 444 + + + + *4**:+**** + *4**** 
Till nc.v' Dn.i'tv»iv=’/ni 

C t + ♦♦»♦ + ♦* + » + *♦ + '•■ + '•■ *4 ♦♦ 44 f* + DU'NI MT 34P * ♦ + + + ++444t*++ + + 4*44 + + * + ♦♦ + + + 

. Rl.TUI N 
LND 

E..0 Pft5Mr VAUUL= 127 
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COUI T 
177 

OCCUfif’EK'CPS 

OF 


<assig!jment> y=. 

CODE 

7^6 


3 

OCCUPiJC^'CFS 

OF 


<ASSIONMENT> X 

S6 


a 

occuR'^rncp'S 

OF 


CALL 

*<0 



orcuRf?rNC'^5 

OF 


CONT iNUF 

S5 


1 

OCCUKRSf Cfa 

OF 


DATA /.,/ 

1 1 


o 

OCGU.iRrriCrS 

OF 


UTMEjSlolJ Xt, ♦),,,, 

10 


1 

urCtR’’r'MCP''i 

OF 


nTf.'E'^STOM X(.. ) 

16 



OCCURPFNCCS 

OF 


uo ■ 

M7 


■ b' 

orcURn'^f'C<?b 

OF 


END 

S6 


1 

urcuprinjcf-s 

OF 


For»/at 

ill 


'a 

uCCUUNKltlC'-S 

UF 


JCTO X 

SO 



ocaJR«rNC“s 

OF 


IF{<':ir>XETATryFNT> ALSO TF t <SW1TCH>) * . . 

45 


7 

^ATl^*•1F[^T> n(1TA POK ^notrAN IF AFT— 

ba ocCHRFCNCF'^. OP roDE <statfvdit><;, 

1 OCCOROENCES OF C^nE 61 <'^tatp«ent>';, 
0 ILL F'ik'^E!) <STAT^ME^'T>5 AND 
0 I'^'PFOPEF <'iTATt*.‘ENT>5, 

OCeuRRELCEb OF FFTIJIJN 

61 


b 

OCCUKREf'CFS 

OF 


SmjRUMTTNF X( ) 

ni 


a 

OCCURFFrrCEt 

OF 


/:PITE (..) ( 

42 


'va 

Btlb 

iba 

OCCUFi'^ENCES 

orCUKFE'iCPS 

OCCURRENCES 

OF 

OF 

OF 


Cojv'MErjTS 

STaTE'-*FNTS 

LAHELfo statements 



S' 

^ e 


He 


f 


\ 

0 

1 

n ' 
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10 

1 

1 

20 

3 

fi 

30 

1 

H 

40 

3 

9 

tiO 

1 

1 

t>0 

3 

a 

70 

7 

2 

tiO 

Q 

n 

qO 

0 

7 

iuO 

7 

1 

110 

4 

1 

l?n 

1 

'2 

130 

1 

1 

140 

13 

7 

lljO 

Ifl 

7 

J bO 

■ la 

b 

170 

0 

n. 

ItlO 

0 

6 

190 

0 

0. 

.’UO 

0 

0 

IP 

b 

14 

'20 

4 

U' 

4' 30 

9b 

Or 

.■40 

4 

la 

‘\lO 

ly 

;v 


4 ■ 

Vt> 

27'1 

0: 

'■.■ 

2ijO 

0 

0 

290 

0 

0 

300 

0 

fl 

UP 

0 

0 

\2P 

0 

0 

130 

0 

n 

3‘tO 

n 

0 


raFs! 




W . . . I i > ^ 1 . 

SF'=iME’NT FXFruTlOhS FPFQHFNCIE^ 
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3 

3 

2 
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3 

3 

1 

4 

4 

3 

P 

3 

0 

3 

16 

1 

? 

3 

1 

9 

3 

3 

0 

3 

1 

Q 

1 

1 

4 

1 
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9 . 

20 

20 

7 

7 

0 

7 

7 

b 

0 

7 

. 0 

7 

7 

3 

4 

w 

7 

0 

1 

4 

16 

64 

3 

0 

0 

0 

0 

1 

1 

0 

1 

1 

0 

I 

1 

0 

1 

IR 

IR 

IB 

a 

IR 

IR 

33 

33 

18 

IR 

0 

0 

0 

0 

0 

0 

n 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

(1 

D 

u 

P 

4 

16 

IR 

6 

6 

12 

n 

16 

0 

16 

4 

16 

43 

4fl 

?0 

28 

43 

36 

IR 

Ifl 

36 

!■=» 

4 

4 

p 

4 

16 

4 

16 

4 

0 

0 

0 

0 

0 

P 

n 

0 

D 

0 

0 

n 

n 

n 

0 

0 

n 

0 

n 

n 

0 

0 

■ 0 

0 

0 

0 

n 

0 

0 

n 

c 

0 

n 

n 

0 

P 

n 


0 
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8 

9 


3 

2 

2 


2 

3 

0 

V- 

12 

3 

2 


4 

4 

1 


2 

1 

3 

, 

1 

1 

0 


2 

18 

9 


7 

0 

0 

V. 

0 

0 

n 


5 

2 

5 


4 

0 

4 

«•>« 

1 

4 

3 
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0 
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2 

5 
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33 

33 


7 

? 

5 


0 

0 

0 


0 

0 

0 


0 

0 

0 
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0 

0 

V- 

4 

12 

6 


12 

?4 

IP 


4 

16 

4fl 


16 

64 

16 

— 

4 

B 

12 


B 

8 

16 


0 

0 
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0 

0 
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0 
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0 
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0 
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0 

0 


0 

0 
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0 

G 

0 







V 

w 

V. 

V 


I ...1 L. 


DATE 0H/28/T6< 


STATEflENt 

NUnOER PROGRAn LlSTINti (LEADING N INDICATES CONVERSION UARNINGSI 


SPECIFIC EXECUTION DATA 


PBOGRftO UNSE1G< INPUT, OUTPUT, TftPESa|NPUT.TflPEfe=PUTPuT) 

FOR DESCRIPTION OF KETHDO USED IN THIS PROGRAPI, SEE «*THE OR 
TRANSFORflATlDM!** 8V FRANCIS, COnPUTER JOURNAL, VOL, *1 PP, 265,332 
START HERE TO PRODUCE UPPER HE55ENBURG OATRIX 

OIMENSIOM A( 10, 10 J.VECtO >,EIGVEC( '♦,'f ),1NT( 10 ),CCnO »,5St 10 ) 
OIWENSIDN 2(10),D( 10, 10 ),BB( 10, 10 ) 

DATA A / 0,1.5.B.1.9.3.2.6oD.0.g.S.3.9.0.7.0,l ■6*0.0. 

X 6.2,3.5,0.6, l.2,6#0,0,0,9,6.£,l,T,3.S i 

NftAX =10 
NN = *f 

NVEC =H , 

N=NN 


DPI J=1 ,X 
J!l = J+l 

K2=J+2 


GREATS ABS( AIKI, J )} 
MAX^ia 

002J=K2,H 

AB= AB5tA(I,J)) 

IF (tiH&AT.GE.AB 1 GO TO Z 
3 GREAT=AB 


2 CONTINUE 

INT( I ) GIVES INFORHATIDN ABOUT INTERCHANGES 
INTI J J=HAX 

IF (TiAX'.EO,Xl > GO TO 5 
H DOAL=J,H 

E=B(X1,LJ 

AtKl.LlsAtMAX.l) 

6 A(nAX,Ll=E 

ooTL^tTS 

E=A(L,KI I 
A(L,XI }=A(L,nAX J 

r AfL.HAX?=£ 

INTERCHANGE DONE 

5 OOei = K2.N 


'=9 fU 

~§^ 


1 f1IN= 
FIRSTS 
1 WINS 
FIRSTS 

1 f^INIs 

2 niN= 
FIRSTS 

2 WINS 
FIRSTS 
2 DINS 
FIRSTS 
2 niNs 
FIRSTS 

2 MINIS 
f11N2= 

3 (lINs . 

FIRSTS 

3 TRUE 

1 ninis , 

FI RSTS 

1 r»?N= 

f;hst= 


2 ttlHs 
FIRSTS 

2 TRUE 

I MINIS 
MIN2S 

3 MIN= - 

FIRSTS 

3 mins - 

FIRSTS 
3 niN= 

I MINls~~ 
** FtlMs -- 


*f MINS 
FIRSTS 


9392607E+OO 

.58000E’»01 

2 

2 

3 

9 

i9doaoQE4'Oi 

. 19000E*01 
2 

2081926E'i-01 
.208 I9E-»01 
H 
H 


MAXs 

LASTS 

MAXs 

LASTS 

MAX1= 

MAXs 

LASTS 

MAXs 

LASTS 

MfiXs 

LASTS 

rlAX= 

LASTS 

MAXls 

MAX2= 

MAX= 

LASTS 

FALSE 

MAXs 

las t.=_ 

«AX= 

LASTS 


9392687E+00 

-,9392TE4-00 

.20g.l92t.E*0l 

-.20619E+01 

9392687£*00 

-.93927E*00 

9 

731039SE+00 

331O395E+0O 

.99000E*01 

.6200CE+0I 


MAXs 

lasts, 

false 

MAXls 

f1AX2s 

MAXs “ 
LASTS 

nft Xs,- 

LASTs 
MAX= - 
■LAST^ 
MAXls 
MAXs 


.33I0395E+00 

-.33103E+00 

.3793103E*00 

.379aiE4^00 

.3310395E+00 

-■33103F400 

9 

.6200000E+01 
-.S9frS5E.tO.fl- 
.9900000E*01 
-.33I03E+00 
^62000Q0E*01 , 
--59655E+00 


<13 


OME 0>f/20/T«. Fi^GE 2 


SThTHflENT : 

NUriBEn PROGBAln LtSTl»B (LEADING N INDICATES CONVEHSIGN UARNIN05) 


SPECIFIC EXECUTION DATA 


IF t Af r, J >.EO.O> 1 00 TO A , . ■ ' ■ . 

At I*J J=-At I, J >/A(Kl, JT 

Ogilfl=K1 ,M 

M A(I,nJ=A(l,n)+A(!,JJ*A(Kl,H) 

8 CONTINUE 

C LEFT nULT, DONE 

DP 2000 >i:;X2,N 

IF (A(«jj).Ea.O,J BO TD 2000 
10 DO 2001 1=1. N 

2001 At i,Al l=At I,Al >-At I,n)»Atf1,J ) 

2000 CONTINUE ■ 

1 CONTINUE 

C RIGHT nULT. DONE , 

C HESSEWBURG NATHIX HOW FORNED AS Atl.Jl. HULTlPLlERS STORED WITH IT 
DC 105 1=1, N 
DO 105 J=1,N 

IPS DM. Jl=AtI.Jl ~ : ■ • ■ ' - • ' 

C PUT APPROPRIATE ZEROS WHERE ttULTlPLlERS WERE STORED 
OP 106 1=3, H 
'L=I-Z. 

DP 106 J=1.L ■■ ■ 

106 AtI,JJ=0,0 
■Kl=N+l 

___ ^ - - ' : ^ ^ ^ ' 

c=fl.n 

D033I=1,N , ■ 

fl=R+ AOS( AC 1, 1 n 

33 C=C+ ABSt AC I.N 11 ■ 

003*1 1=2, N 

R5=0.0 ■ ■ . ' • . 

CS=0.0 
' L=I-1 

0t)35j=L^(K ■ ■ ~ ■ ~ “ 

R5=R5» ABStAt I.J 11 ■ ' 

K1J=K1-.I 


3 nlN= -,55172NI£-+00 0AX= 32T5862E+00 
FIBST= ".32T59E+00 LAST= -.N5115E+Q0 

j!.j?.i.fiLi= - 2 r<ftyt= a_ 

HINZ* *I HAX2= N 

8 nlN= -.205172AE+0I flAXs .3T«103E+00 
FTRST= -,5T759E*00 LAST= >^.2167AE*00 
3 ' 


2 niNi= 
rtlN2= 

3 TRUE 
3 niHi= 


3 HAXl= 
N fJAX2= 
0 FALSE 
*t WAX1 = 


12 niH= -.223I201E+01 HAX- .1269715E+02 
FIRST= .N8310E+01 LAST= “.59995E+00 

3 ^ 

Z 


I fUNl= *t MAXIS 

A rtINl= 9 MAXIS 

16 M!H= ~.20ei926E'»01 Mni= 
FIRSTS .lOOOOE+00 LAST; 


,126971SE-»0 2 

-,2l6T9E+00 


1 MTN1= 

2 M1N= 
FIflST= 

2 MIN1= 

3 

I MIN= 
FIRST= 


1 MINIS 
9 MIN= , 

FIRSTS 
9 MTNs ■ 
FIRSTS 
1 MINIS 

_3. 

3 

3 MIN= 
FTH5T= 

3 MINIS 
MIN2S 

FIRSTS 
9 MlNs 


*1 MflXl; 
1 MAX= 

1 LASTS 

1 Mart;; 

5 MAX= 

S LASTS 


9 MfitlS 

lOOOOOOE+00 MAX= 
.lOOOOE+00 LASTS 
6200000F-»01 MATS 
.62000E+01 LASTS 
9 MAXls 


1 MAXl- 
9 MAX2; 
999961E-»00 Mfl^s 
.5aOOOE+Dl LAST; 

1 MAX= 


.2929a26E+02 

.29Z90E+02 

JJ.&.9J79E±g2_ 

.10698E+02 

9 


.B1669E40Q 

9 


KlIsXl-I 

35 CS=C5'» ABSt AtXIJ. KITH 

IF CRS.LE.HJ SO TO 36 
37 R=RS 

36 IF CCS.LE.C ) GO TO 31 
99 C=CS 


9 MINS 
FIRSTS 


1 MAXs 
3 LASTS 


FIRSTS .599S5E+00 LASTS ,590flOE+01 

3 true 3 false 0 

_a 

3 TRUE 2 FALSE I 

I MINs *211256i3E+02 MAXs .21 12569E+02 


PET CASE I DATE 0*1/28/7*. PAGE 3 


STATE/1E«T 

ffUttBER PnOGHAtt LISTING (LEADING H INDICATES CONVERSION MAANINQS) COUNT SPECIFIC EXECUTION DATA 


79 


39 CONTINUE 



3 /... 





80 


IJR=l 

. c • 


1 





81 


IF (H.GE.C ) GO TO 59 



1 TRUE 

t 

FALSE 

0 


: H2 

C 

DELTA IS CRITERION FOR STOPPING; 

AN ITERATION 







83 


53 DELTA-fl^l.OE-ll ^ 



0 





89 

C 

DEL IS ARBITRARY SHIFT 








85 


DEL=R/17.1B29 


« 

0 





8* 


GO TO 15 3 


♦ . 

0 





BT 


59 0ELTA=CJi»1.0E-lt 



I Ml«= 

.2112569E-09 

MAX= 

.2n2569E-09 







FIRSTc 

.21 126E-09 

LAST= 

,21l26E-a9 


88; 


0EL=C/1T.1829 



1 MIN= 

. 122995 7E+0 I 

MAX= 

,1229957£+C1 







FIRSTS 

.f2295E<*0I 

LAST= 

.12295E+01 


89 

c 

DELTA COMPUTED 








90 

c 

PRODUCE A-PI> ITERATE ON THIS TO 

BREAK UP EIGENVALUES OF EQUAL MODULUS 







91. 


153 DO TOT 1=1, K 



1 P1INI= 

9 

f1AXl= 

9 


92 


107 A(I, n=A(I.n-OEL 



9 MIN= - 

. I99S200E+OJ 

MAX= 

-T237T89E+01 



93 55 IF (N.WE.l) GO TO J»8 

9*f C SUBROUTINE CALCEV CALCULATES EIGENVALUES OF 1X1 OR 2X 2 WATRICES. 
95 C PI IS ADDED BACK IN CALCEV^ 

9* AT CALL CALCEVrA,NnAX,flEL,VEC,IJK,N, I ) 

97 60 TO n ^ ~ 

98 98 IF (M.NE.2) GO TO 00 

99 A9 CALL CALCEV(A,NP1AX,DEL,VEC,IJK,N,2) 

100 GO TO 7.6 ■ 

101 C OH TRANSFOnrtATIDN STARTS HERE 

102 C initialize FOR DETERRlHlNG SUBSEQUENT SHIFTS 

103 SO ARlsQ.O : 

109 AR3=0.0 

105 AR*f=0.0 

10* C RE-ENTER AFTER REAL IT OR CQMPIT SUBROUTINES CALLED 

107 C SELECT FIRST t(ZEBO)? SUB-DIAGONAL ELEflENT FROM BOTTOn 

108 61 L=N ' 


107 D056 1=2>N 

110 N21=N+2-I 


in IFt ABS( AtN2l,N2I--in.LT. DELTA JGO TD 57 

112 56 L=L-1 


113 C VALUE OF L SELECTED 
IH 57 IF (L.NE.N) GO TO 59 

115 SB CALL CALCEVt A.NrtAX.DEL.VEC.tJK.N. I > 

116 H=N-t 

117 GO TO 98 

na" 59 IF ( (L-N+-1 l.NE.O ) GO TO 75 

119 60 call CALCEV(a,NMAX,DEL,VEC,TJK,N,2 ) 

120 N=N-2 ■ ' 

60 TO 55 


FIBST= -.I1295E+01 LAST= -.19962E+01 
1 true 1 FALSE 0 


* 0 

» 0 

3 TRUE 2 FALSE 1 

1 

1 • 


2 

2 


9 I1IN= 3 JlAXs *1 

FIRSTS H LAST= 3 

9 MINIS 3 MAX1= H 

20 MIN^ 2 KAX= *1 

F1R5T= 9 , LAST = 3. 

20 TRUE 2 FALSE 18 

18 niN= 1 MAX= 3 

FIRST" 3 LA5T= 1 


9 TRUE T FALSE 2 

_2 ^ : 

2 MIN= 2 MAX= 3 

FIRST= 3 LAST= 2 

Z ' 

T TRUE . 7 FALSE 0 

* - 0 

•_ n ^ ^ ^ ^ 

* 0 


121 



STflTEfJEHT 

NUMBER PHOGRflH LISTING ILERDING « INDICATES COHyERSlQR MABMIHOS) 


COUNT 


SPECITIC EXECUTION DATA 


166 

76 IF (NVEC,Fa.OJ GO TO 600 


L 

TRUE ^ 0 

JLU-SE- 

! 

166 C 

INVERSE nERRTin.V IS USED FOR EIGENVECTORS 






167 

550 5«ALL=0ELTA*1 .0E“30 


I 

MINS .Z112569E-39 

HAX= 

.2112569E-39 





■ IIIH HHIHill 



168 

NUrtaO 


1 




169 

JI=1 


1 




170 

NHaNN*NN 


1 

M IN= 8 

MAIs 

8 _ . 





FIRST* a 

LASTS 

8 

171 C 

Cl IS REAL FART OF EIGENVALUE 






17Z : 

513 C1=VEC( Jl ) _ „ _ 


9 

HTW= -;529T020F*01 

HAts 

. T!?IOa5F*02 





F1R5T= -.99502E-01 

LASTS 

.112I0E+02 

173 C 

C2 IS COMPLEX PART OF eigenvalue 






ITN 

C2=VEC(JI+1 J 


q 

niN= 0 . 

MATS 0 

- 





FIRSTS 0. 

LAsfs 

0. 

175 

Hun=Nun*i 


t 

MIN* 1 

MAXs 

9 





FIRSTS 1 

LASTS 

9 

176 0 

replace HESSENBURG MATRIX AND nULTlPLlERS 






177 

DO 570 1=1, NN 


9 

ttl«l= 9 

MAXIS 

9 

1TB 

DO 570 J=UHN 


16 

MINIS 9 

MAXls 

9 

179 

570 A( I, J )=D( I,J ) 


69 

niN= --2081926E+01 

flAXs 

.1269715E-*02 





FIRSTS .lOOOOE+00 

LASTS 

-.21679E+00 

lao 

IF (C2.NE.0* } GO TO 561 


■ 9 

TRUE 0 

FALSE 

9 

18 1 

CALL RVEC<A, NMAX,INT,C|, SMALL, NN,NUM,EIGVEC,NVEC,CC,S5) 


9 




102 

Jl=Jl+2 


9 

M1N= 3 

MAX= 

9 





FIRSTS 3 

LASTS 

9 

103 

IFtNVEC.EOiHUMlGO TO 600 


9 

TRUE 1 

FALSE 

3 

189 

GO TO 513 


3 




185 

561 CALL If1VEC{A.NMAX,lNT,Cl.C2,SflALL,MH,NUM.EIGVEC»WVEC.CC,SS.2.8B J 

* 

0 





1S6 C NEXT STATErtENT IGNORES CONJUGATE COnFLEX EIGENVALUES 

187 JI=JI+N * 0 

188 IFCNV EC.Etl.NUniGO TO 600 ^ * _D 


IB8 GO TO 513 • { 

190 600 CONTINUE 1 

191 END ' ■ 1 










FET CASE 1 D*TE 0‘J/2B/T6. PAGE * 


* ■ *, . 

• PROGRAn EVALUATOR AND TESTER REPORT » 

9 ' ■ ^ 9 


9 Fos suanouTiHE unseig # 

9 ' 9 



SYMTACTIC PROFILE 

TOTAL NUMBER OF 

SOURCE STATEMENTS 

190 

TYPE OF STATEMENT 

HUMBER 

PERCENT OF TOTAL 

executable source 

15fi 

82.1 

nonexecutable SOURCE 

1 

: -2*i 

comment 

30 

15 .8 

nonstandard 

1 ■ . 

.5 

BRANCH 

58 

N/A 

CALL 

« 

N/A 

UNFORMATTED I/D 

0 

N/A 

FORMATTED I/O 

0 

N/A 

ASSERTION DIRECTIVES 

0 

N/A 



OPERATIONAL 

PROFILE 


TOTAL EXECUTION 

COUNT 

560 


TYPE OF STATEMENT 

NO executed 

percent executed 


executable S0UR3E 

125 

00.1 


BRANCH 

35 ■ 

60. a 


CALL 

A 

50.0 


unformatted I/O 

0 

100.0 


FORnATTEO J/O ' 

^ 

100-Q ■ 






PET CASE 1 

DATE 

09 728 /7S. 

PAGE 7 


STATEMENT 

NUMBER pnOGRArt 1.1ST1NG (LEADIHG « INDICATES CONVERSION HAfiNlNGSJ 



COUNT SPECIFIC EXECUTION DATA 


1 

SOnnCIITlNE CALCEVf ft.NMA3C.DEL .VEC, IJK.N.n ) 






DIMENSION ACNMA!(,NnAX >,V£C( I 1 
IF Crt.NE.l ) GO TO 2 

1 ftl=0.0 



3 TRUE 1 FALSE 2 

■ _z .. .: ^ ^ 


5 

6 C 

A{N,N )=AIN,N )+OEL 
STORE EIGENVALUES IN VEC 



2 niN= -.9950155E-0* nAX= .2536972E+01 
FIRSTS -.V9502E-01 LAST= .2S3S5E401 


7 

a 

VEC( UK )=fttH,NJ 
VECCUK+1I=A1 




■ 

9 

IJK=UK+2 



FIRSTS 0. LAST= 0- 

2 mN= 3 nax=! 5 

FIRSTS 3 LASTS 5 


10 

11 

RETURN 

2 B=AtN'l,N-l )+A(N,H > 



2 

1 ni«- .3509il5E+tH MAX= .3509115E+OI 
FIRSTS .35091E+01 LA5T= .35091E+01 


12 

13 

C=A(N-1,N-1 l*AtN,N)-A(N,N-U>AtN”l,«) 
Cl=A(N“l,K-l )"A(N,N) 



1 MI«= -.S9S3907E+02 MAX= -.S9S390TE402 
F1RST= -.S9S39E+02 LAST= -.69639E+02 
I NIN= .tSai>iOOE402 MAX= .IS8I900E402 


19 

DISC=Cl¥Cl+9,0¥A(N,N-n»AlN-l,m 



FIBST= ,168!9E+02 LAST= .16B19E+02 

1 «1N= .270835 IE+03 MAX= .270835 lE+03 

FIRSTS .2T089E+O3 LBST= .27089E+CI3 


15 

IS 

17 

IF CDISC.LT.O.} GO TO 9 
9 AI=0.0 

IF CB.GE.O. > GO TO 6 



1 TRUE 0 FALSE I 

I 

1 TRUE 1 FALSE 0 


la 

19 

20 

Blii0.5*(B- SORTCOISCll 
GO TO 7 

S Bl=0*5^tB+ SQRTfOlSCJj 


' « 

0 

0 

I niN= .9980592E401 MAX= .99B0592E401 


21 

22 

IFCni.NE.O. ) GO TO 7 
10 R2=0.fl 


♦ 

FJRST= .99BD8E+01 LAST" .99806E+01 
1 TRUE 1 FALSE 0 
0 


23 

29 

GO TO 11 
7 R2=C/R1 


!§■ 


■ 

25 

2S 

11 Sl=fil+DEL 
R2=R2+DEL 



1 niN= .1121005E402 MAXs .1121005E402 
FlflSTis .11210E+02 LAST= .112I0E+02 

I MtN= -.5297020E+0I MAX= - . 5297020E+01 


27 

VECC UK J=R2 



FIRST= -.52970E+01 LASti -.52970E+01 
1 niW= -.5297020E401 MftX= -.5297020E+01 
FinST= -.52970E+01 LAST= -.52970E+01 . 


28 

29 

VECC UX+l )=AI 
VECC U'iC+2 >=H1 



1 niN= 0. MAX- 0. 

FIRSTS 0. LA5T= 0. 

1 MINS .1121005E+02 MAX= ...n210(lSF*07 


30 

VECC UK+3 JsAl 



FIRSTS .11210E+02 LAST= .11210E402 

1 niN= 0. f1AX= 0. 

FIRSTS 0. LAST= 0. _ _ _ 


31 

32 

33 

GO TO 8 
9 BI=0.5»B 

At=-,5* SORTf ABSCDtSCn 


m 

1 

0 

0 . . . 


39 

35 

3S 

Rl=ni+OEL 
VECt UK )=ni 
VECC UK + l I=-A1 


s . 

0 

0 

0 . - 


37 

VECC UK+2 )sRl 



0 







PET CASE 1 

statement ^ ' "" " ■ 

NUnBER PROGRAH UBTING (LEADING » INDICATES CQNVERSiaN UARNlNQS 


3fl VEGf I JK»3 l=AT 

39 a UK=ijit+'t 

90 BETQBN . 

91 END 


DATE 09/25/76, PAGE 8 

) COUNT SPECIFIC EXECUTION BATA 





[O X> 


PET CASE 


STATEtlENT 

»unaER PPOGBAn listing (leading N indicates conversion UARNINGS) 


SUBROUTINE REflLlTtfl,NnAX^L.N. SHIFT, C.S) 


DinENSlON A(NrtAX,NflAX },C( D^St 1 J 
IF (SHIFT, EB.O. ) DO TO 2 
I D03 I=L.N 


3 An,n=A( i^n^SKiPT 


DEWOf1= SQBT(A( I, I »**2+A( I + l, n**2 ) 


IF ( DENOn.GT.O. ) GO TO 10 
nc( 1)3^1. 0 
St n=D.o 


GO va H 

10 Ctl/^At I^n/DEHDM 


S( U=At l^-l, n/DENOH 
A(I,n=DEfJOn 


Dff 35 J=H,N 
F=A(T,J) 


At I, J )sft( I+l, J Jj^St 1 i+F;»C( 1 1 


At l+l,J )sA( I+l, J J*Cn )-F*St I J 


35 CONTINUE 


A CONTINUE 

TRIANGULAR MATRIX FORMED 
DOS J=L,M 


F=A(I,J) 

At I. J 3= At I. J+l >»5( J l+F^^Ct J 1 


i At Ij J+l )=At J+1 )*C( J)-F#St J 1 
At J+l,J )=Al J+i;j+l l»tStJ) 

S At J+l . j+1 lirAt J-^l . JVM<fC( j 1 


TBANSFORMATION COMPLETED 
IF ( SHIFT, £0,0, ) RETURN 


T 00*) I=L,H 


9 At I. J l=At 1, r J+SHtFT 


DATE 0N/2B/T4. PAGE /Ifl 


COUNT SPECIFIC EXECUTION DATA 


7 TRUE 2 FALSE S 

g- MrN1= . L. 

MJN2= 3 MAX2- H 

IB niN= -.8000932E40I MAX* .HT395SE402 

FIR5T= .52505E*0I LAST= -.2586<<E-06 

T «1N= 2 MAX= 3 

FIRSTS 3 LAST- 2 

I M[H1= 1 MAX1= 1 

niN2= 2 MAX2= 3 

IB MIN= ,1956132E+0I «AX= .1260N39E+02 

F1RST= ,59089£f01 LflST= .79B83E4Q1 

IB TRUE IB false 0 

♦ 0 

0 ■ 

» 0 

18 «IN= lOOOOOOE+Oi MAX= .99Ar08SE+00 

FIHST= -,I911-9E-»D0 LAST= ~,lflOQOE4Ql 

18 flilN= “.N120136E+00 MAX= .9815621E+00 
FIBST= ,98156E+00 LAST= --626NTE-0T 
IB nlH= ,1^SS t3ZE4t)1 MAXs , 1 2&09 3‘fE-»02 
FJRST= ,590B9£+01 LAST* .79a83E+0l 
18 MIN= 2 MAX= N 

' F1R5T= 2 LASTS 3 

18 «INI= 2 «AX1= -9 

H1N2- 3 MAX2= >9 

. 33 MlNa -.139N99AE->-0g HAXs . 1-905385 E4Q2 

FIRST= ,I0293E+02 LAST= -.99T2qE+01 
33 MIN= -.ISHSTSBE+Oa MAX= .1393676E+02 

FIRSTS ,5I3S9E-^01 LASTS .N5720F+0T 

33 niN= -.1399996E+02 MAX= .39358HE+01 
FIRSTS -.11N87E+02 I.AST= -.52B38E-0T 

33 , 

18 


7 MTNitt 1 WAX1= L 



MIH2= 2 

MAX 2= 

3 

18 

HIN1= 1 

MAXl= 

1 


MTN2= _ 1 

MAT?= 

3 

33 

niN= -.IN11128E+0Z 

MAX= 

,1260939E+02 


FIRSTS .590B9E+01 

last- 

.79i2QE+0l 

33 

MIN= -.7961958F+0I 

mats 

.IB05B85E+02 

- 

FinST= .39127E+01 

LAST= 

-.79620E+01 

33 

MIN= -,19m28E+02 

MAX= 

,l39fc203E+02 


FTRST= -.67B19E+0I 

LASTS 

-.9972DF-4.01 

18 

OIN= -.NSOSNNIE+OO 

MAX= 

.1195868E+02 


FIRSTS .11959E+02 

LASTS 

.33101E-1N 

IB 

nlN= -.2653969F+01 

MAX= 



FIRSTS? -,22319E+D1 

LASTS 

-52838E-07 







* PfiDGnArt EVALUATOR AMD TESTER REPORT 


« FOR SUBROUTINE REALIT 

*■ .' 



SVNTACTIC PROFILE 

TOTAL NUMBER OF 

SOURCE STATEMENTS 

' ■ 


TYPE OF STATEMENT 

NUMBER 

PERCENT OF TOTAL 


EXECUTABLE SOURCE 

31 

86.1 

. 


NONEXECUTABLE SOURCE 


COrtMENT 

NaNSTANOARD 


BRANCH 


CALL 

UNFORMATTED I/O 


FORttATTED I/O 


ASSERTION DIRECTIVES 




OPERATIONAL PROFILE 
TOTAL EXECUTION COUNT 


TVPE OF STATEMENT NO EXECUTED 


executable source Z« 

BRANCH 5 ■■ 


CALL 


UNFORrlATTED I/O 
FORMA TTFO I 


SIS 


PERCENT EXECUTED 


90.3 

Tl.jf 


100.0 


too.o 














<3 Zl 


OfllE 0'i/E8/7*. MGE 12 


STATEnENT 

HUM2EH liTtOGAAn L15T1MG (LEADING N INDICATES CONVERSIDN UAnm»G5l 


SPECIFIC EXECUTION DATA 



SOBfldllTlNE C(]nP!T( Aj«nAT.L^N^n«0. 


DIrt£?i£ION AtNrlAX,NnA** 

householder tvPE nATRlCES USED INSTEAD OF ROTAt J0N5( SEE FRANCIS PAPEHJ 
H=N -1 


DO 1 IsL,n 

IF tl.NE.L) SO TO 3 

2 81=A(L ,L )»{ R(L.L )-5IGnAl*R<L. L+i 1*A(L+1 ,L )+RHO 


B2=n(L+l,L)H AtL,L)+AtL + l,L+l I-SlGflfl) 
B3=A(L+1,L )*A(Li‘2,L+n 
A(L+2i.L )=0.0 


11 


GO TO 6 

1£ 

3 

Bl=A( 1,1-1) 

13 


B2=A( 1+1 ,1-1 » 

IN 


IF tI.EO,f») 60 TO 5 

15 

N. 

fl3=A(I+2,T-l» 

U 


GO TO 6 

.17 

5 

33=0.0 

1« 

6 

D= SQRT(Bl+Bl+B2+02+D3+a3 ) 

11 


IF (Bl.GE.O. > 60 TO B 

20 

7 

D=-D 

21 

e 

IF (D.Ea.O. ) 60 TO 1 

22 

9 

Cl=B2/( D+Bl ) 

23 


C2=83/tD+Bl) 1 

2N 


E=2.0/{ 1,0+C1+C1+C2*C2) ^ 

25 


DO 10 K=1,H 1 


2* 

27 

28 

11 

IF ( I.EO.m GO TO 12 

G=E+t fl{ I ;k )+C l*A( 1+1,K J+C2+AI »+2,K ) ) 

At I.K)=AII,K)-G 

•* 

21 


A( 1 + 1,5 )=A{ 1 + 1, K)-C1#B 


30 


At 1+2, X )=At I+2,X )-C2+B 


. 31 " 


GO TO 10 

Jld 

32 

12 

G=F+(A< I,K)+Cl+AtI+l,K?> 


33 


At 1,K J=A( I,K )-G 

m 1 

39 


At l+UK )=A( I+1.K)-C1*S 

¥ 1 

35 

10 

continue 

9 1 

34 


IF t I.EQ.L ) BG to IN 

1 

37 

13 

Att.I-l)=-D 

* ( 

3S 


At 1+1,1-11=0.0 

+ 1 

39 " 


IF t I.EB.M) GO TO IN 

* 1 

NO 

15 

At 1+2, l-l)=0.0 

* { 



BOU OPERATtON CCnPLETED 
IN J=I+2 

IF ( J*LE.N) GP TO IT 


NN 

16 

J=N 

* 1 

N5 

17 

DO 18 K=L, J 

* { 

N6 


IF t I.EQ.n ) Go TO 20 

M. - ■ 1 



1 )-»C 2 ^A(K,l+Zn 


50 
51 . 

52 20 

ACK, 1+2 )=A(X, 1+2 1-C2+S 
GO TO 18 

G=E*t AtX.r )+Cl*A(K, i+i n 

9 

9 

» ■ 

0 

0 

0 

53 


A(K,n=AlK,1 1-G 

9 

0 

5N 


Al K, I+l )=A(K, I+l J-Cl+B 

9 

0 

55 

18 

CONTINUE 


n 










14P 


1 

* 



* pnacnAd evaluator and tester report * 


« FOR SUBROUTINE CQrtPIT * 



SVNTACTTt PROFILE 


TOTAL NUMBER OF SOURCE STATEMENTS 


TYPE OF STATEMENT 
EXECUTABLE SOURCE 


NUMBER 

59 


PERCENT OF TOTAL 
90. B 


^ NONEXECUTABLE SOURCE 

3 

C0FII1ENT 

3 

NONSTANOARO 

0 

BRANCH 

29 


FORMATTED 1/0 ( 

) N/A 

ASSERTION DIRECTIVES ( 

) rt/A 

THIS SUBROUTINE. 

UAS NOT EXECUTED 






CS) 



STflTEnENT 

NUMBER PHOQRftR LISTING (LEADING N INDICATES CONVERSION HAHNINQSl 

■ 


HO 

13. tJxvtru 

H 1 

n CONTINUE 

HZ 

H3 

DDH I"1,N 
IH V( F lnY( n/B 

HH 

H5 

*(6 

IF{ JJJJ.EQ.H IGO TO 6666 
DD15 1^2, H 

IF tlWTEIU n.NE*I J GO TO 15 

H7 

16 8=YU> 

H8 

Y( 1 J=V( 1-1 ) 

HI 

Y( l-l )=B 

5 0 

15 vm=vcij+A(i,i^imyci-i» 

51 

8080 CONTINUE 

52 C 

53 

ElGENVECTOn OF HESSENBUHG MATRIX OBTAINEO (NOT NOBOALIZED) 
6666 n=N-l 

5H 

55 

DOZl 1=2,M 
J=N+1-I 

56 

L=Ji-l 

57 

0020 X=L.N 

58 

20 ¥(Kl=y(XJ-Y(J)*A(lt,J-I» 

59 

LLsINT(N-I) 

AO 

IF ( J.EO.LL) GO TO 21 

A I 

19 B=Y(J) 

62 

V( J )=Y(LL 1 

63 

YCLDssB 

AH 

65 C 

66 

21 CONTINUE 

UNNORMALIZEO EIGENVECTOR OF ORIGINAL MAifllX, QBTiUNED 
0=0.0 

6 7 
66 
69 

0022 1=1, N 

IFt ABSt S ).GE. ABSt Yt n jJGO TO 22 
23 B=Y( I J 

TO 

71 

22 CONTINUE 
D02H 1=1 .N 

72 

2H Y( I )=V{ 1 )/B 

73 C 

NORMALIZED EIGENVECTOR OBTAINED 


D 


DKTE 0'l/28/7&. FADE 1ft 



COUNT 

SPECIFIC EXECUTION 

DATA 


H0 TBUF 

_2CL_FALSE 

28 


28 fllN= - 

.e752668E+13 MAX* 

.T828595E+13 


FIRST* 

H0 

.78286E+13 LAST* 

.89285E+12 


16 HIN1= 

H MAXI* 

H 


6H nlH= - 

.89HH230E+OO MAX= 

.lOOOO-'OE+Ol 


FIbSTt 

-I'lT'iHt'nJO LAST* 



16 

H FALSE 

12 


12 MINI* 

H MAXIS 

H 


36 TRUE 

!8 False 

lA 


10 M1W= - 

.3ft51198E+00 MAX= 

.tODOOOOE-fOl 


FIRST* 

“.365I2E+00 LASTS 

*98280E-02 


10 M1H= - 

.130113TE+01 MAX* 

. lOOOQOOE+Ol 


FIRSTS 

.1979HE+00 lasts 

.900B6E-»’00 


10 M1N= - 

.3651198E+00 MAX* 

.iOOOOOOE+01 


FIRSTS 

-.36S12E+00 LASTS 

-90:eaoE-o2 


36 MIN* - 

.1312023E+01 MAX= 

,137H8H5Ev01 


FIRSTS 

12 

.21050E+00 LASTS 

.90HB1E+00 


H HIN* 

3 MAX= 

3 


FIRSTS 

3 Lasts 

3 


H MINIS 

3 MAXIS 

3 


8 Ml»= 

2 MAXs 

3 


FIRSTS 

3 lasts 

2 


8 M1N= 

3 MAXs 

H 


FIRSTS 

H LASTS 

3 


8 MINIS 

3 MAX is 

H 


M1N2= 

H MAX2= 

H 


12 MINS 

3960651E+OO MAX= 

.9118357E+00 


FIRSTS 

.9ll8HE'f00 LAST* 



a MINS 

2 MAX= 

H 


FIRSTS 

H LASTS 

2 


8 TRUE 

H false. 

H 


H niN= 

39HH238E+00 MAX* 

136H32SE+00 


FIRSTS 

-.195H2E+00 LASTS 

-,18T19E+00 


H nlNs 

20B62t0E+fl0 MAXs 



FIRSTS 

.9118HE+00 LASTS 

-.7H622E-01 


H ttINs 

89HH230E+OO MAXs 

136H325E+00 


LmsiH- 

“.19SH2E*00 LASTS 



8 


H 

16 

8 

MINIS 
TRUE 
niw= - 

H 

8 

.3651 1H8E*00 

MAX1= 

FALSE 

«nx= 

H 

8 

. tOOOOOOF+01 

16 

FlHSTs 

.1979HE+00 

LASTS 

.lOOOOE+Ol 

H 

MTN1 = 

H 

RTTia 

H 

16 

MINS - 

.5OO9H0HE+OD 

MAXs 

.lOOOOOOE-^01 


FIRSTS 

.2H906E+OO 

lasts 

.36H5HE+00 
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PET CASE 1 


DATE 0^728/74, 


STATEMEHT 

HUflDEfl PROGBfln L1STI«Q {LEADING 

N 

INDICATES CONVERSION URRNINGS} 

COUNT 


SPECIFIC EXECUTION 

DATA 

c 

PUT Yt n (REAL EIGENVECTOR 1 

JL!t 

EIGVECTI HUnOFEV. n 





T5 

DO 100 1*1, N 



H 

fllHl* 

*1 MAXI* 

H 

76 

100 EIBVEC<NUn,n=Vt n 



16 

MIN= 

.500Y*ta*l£+00 MAX* , 

1000000E40I 






FIRST* 

LAST* 


77 

RETURN 



H 




7# 

END 












TOTAL NUMBER 

OF SOORCE STATEMENTS 

Tfl 

TYPE OF STATEMENT 

NUMBER 

PERCENT OF TOTAL 

executable source 

{,9 

83.5 

NONEXECUTABLE SOURCE 

"3 

3.8 


■ COrJWENT 
NONSTANDARD 


BRANCH 


CALL 

UNFORMATTED t/0 


FORMATTED I/O 


ASSERTION OIHECTIVES 





OPERATIONAL 

PROFILE 


^ TOTAL EXECUTION 

COUNT 

1238 


TYPE OF STATEMENT 

NO EXECUTED 

PERCENT EXECUTED 


executable SOURCE 

66 

58,6 


i BRANCH 

15 

88,2 



CALL 


UNFORMATTED I/O 
FORMATT 







19 P 






' PET CASE 1 

DATE 

0<l/28/T8. P"SE !♦ 

STATEMENT 

NUMBER PROGRAM LISTING (LEADING N INDICATES CONVERSION MORNINGS) 


COUNT SPECIFIC EXECUTION DATA 


>Y,Z,BJ 

DIHEHSIDN A(NMAX,NnflX INTERt 1 )>Y( I ),2( 1 ), IKTC I ) NHAX, NHAX ),. 
lEtGVEClNrtflX.NrtAX ) 



[ DD50 1=1, N • , 

■ * 

i 0050 J=1,H 


r 50 BC I. J )=0.0 

■ # ' . 

1 DOl 1=1,N 

- • » 

1 A(i,n=AM,n-ci 

* ' ■ 

t ! BC I , I )=B( I, 1 )-AMU 

-m 

002 1=2, H 


C=A( 1-1, I-l >^AU-1,1*:1 >+BI I**!,!-! > 

♦ 

D=AC 1, t-l 1*A( I, I-l )+BC I, I-l 1*BC I. I-l ) 

. ■ « 


tP (C.GE.D } GO TO >i 
INTEHtn*! 

G=r 


C-D 

D*fl 

J^I-1 


DOS K=J,N 

fit I-l.Kl-fit ».X 1 


3 AC I,X )=G 

* 

A G=Bt I-1,K) 

* ■ 

5 B{I-l,)C)=B( I.K) 


i 5 B(I,K)=G 


7 GO TO 6 

■ 1 

B t INTER! n=I-I 

■ ■ ■» ■ ■ ' 1 


7 G=A< ) 

ft( J,l-1 )=“tG»A( I-l ,I-i HB( 1,1-1 )¥S( I-l.I-l ))/C 


B{ 1,1-1 )=-(flU,r-l )*AtIrl,I-n-B¥B(I-l,I-l))/C 
Doa 

AC I.K l=fl( I.K )+A( 1, 1-1 )*fl( I-r,lf l-8( 1. I-l )»B( 1-1 ,K) 


8 BC I,K 1,K )+B( J+fl( 1,1-1 )*aU-l,K) 

Z CONTINUE 

TfllANGULAR MATRIX FORMED 



38 

39 
AC 

009 1=1, N * 

C=A(I, t )*AtI, I)+B!l, n»B(l,n * 

IF IC.GE.SMALL) go to 9 ♦ 

0 

0 

0 

A1 

A2 

A3 

AC I, I )= SORT! SMALL) » ‘ 

B< 1,1 1=0,0 « 

9 CONTINUE * 

□ 

0 

0 

AA 

A5 

A£ 

DO nil 1=1, M ♦ 

* , ^ VC I )=1.0 . ■ 

11 1 1 7( I >=0,0 » 

0 

0 

0 

AT 

A3 

AT 

DO 8088 JJJ=l,A * 

C=A(N,N )*A{N;N UB(N,N)»B(N,N ) ♦ 

G = V<N1 ' ' 

0 

0 

o ' 

$0 

51 

52 

V(N)=(G*A(N,N)+Z(N)*BtN,H))/C * 

2(N)=(2CN)«A(N,N}-G«BCN,N)}/C • 

0017 1=2. N , 

p 

0 

D _ 


n=N+l-I 


□018 J^2,I 














T3 

Don I=1*N 



G=Y( 1) 


75 

Y( i JttG'Al+Z< I 1*A2)/E 




saaB 

a? c 

90 666i 


1 

2 
3 


ZU I 3^ftl-G*a2)/E 

IF( JJ,I,EQ,9 ) 60 TO 6566 

DOIS I=2,H . ■ ' • 


IF ( INTERt U.NE. I) GO TO 30 
G=V( n 

V{n=V(I-l) 


VU-l)iJ6 

G5=z(n 

zcn=zti-i5 _____ 


2t t-1 )=E 

V( T )*Y{ 1 }+A( 1,1-1 mtl-1 )“»<!, 1-1 }¥Z( I-l ) 
Z( I J=Z( 1 )+flC 1,1-1 1*Y( I-l )+At 1,1-1 1»H I-l I 


CONTINUE 

EIGENVECTOR OF HESSENBURE flflTRlX OBTAINED 
fl-N-1 • 


Dozr i=2,n 
JsN+l-I 


DOZO 3t=L,N 

Y(K )=V(K J-Y{ J )*ArK>J-l )+ZU)YB(K,J-l I 
2( X )=Z{ K )-Z( J I-fAI X . J-1 1-Vt J iTfit K , J-1 1 


LLslHT(N-I) 

IF tJ.EQ*LL) GD TO 21 
G=Y{ J 1 


Y( J }=Y(LL) 

YtLL )=G : 

G=I{ J1 ■ 


Z(J>=ZILL) 

zauuc 

CrNTJNUE ■ 


UNNpHnA».IZED EIGENVECTOR OBTAINED 


109 

F=Yin*v{i)+zm+zm 


110 

IF (E,GE,F) GO TO 22 


111 

23 E»F 

4 

IIZ 

■ - . L*I 

-1 






STfiTEnSNT 

NUnBEfl PROGRAM LISTlHq tLEADIHGN INDICATES CONVEBSION URBWlNGS 


113 

22 

COMTINUE 

■n 


A1=Y(L) 

mBM 


A2=Z<L> 



D029 1=1 .H 

nr 


G=y( I > 

lie 


YtU^lGi^Al+ZMl^Aai/E 

m 

29 

2( T )=f Z( I j*fl1-G*A2 1/E 

120 c 


NOBPJALIZED EIGENVECTOR OBTAINED 

121. C 

PUT 

Vnj (REAL PART) IN EIG VECTt HUMOFEV, I ) 

122 


00 100 1=1 ,N 

123 

100 

EIDVEClNUrt, I 3=Y( 1 ) 

m 


NUM=N0«+1 

125 D 

PUT 

Z( n t COMPLEX PART) IN ElGVECTf NUMOFEV . I) 

l£i: 


DO 101 1=1, N 

127 

101 

EIGVECtNUfi,! >»2( I) 

128 


RETURN 

129 


END 





« PROaBAn EVALUATOR AND TESTER REPORT * 


* FDR SUBHOUTlKE jnVEC • 


SVNTftCTlC PROFILE 

TOTAL number of 

SOURCE STATEMENTS 

127 

TYPE OF STATEMENT 

NUMBER , 

PERCENT OF TOTAL 

EXECUTABLE SOURCE 

118 

92.9 


NONEXECUTABLE SOURCE 


COrtttENT 

NONSTANDARU 


BRANCH 


CALL 

UNFORMATTED I/O 


FonnATTEb I/O 


ASSERTION DIRECTIVES 


THIS SUBROUTINE MAS NOT EXECUTED 
















SVHTACTIC PflflFfLE 


1 TOTAL NU/16EB 

OF SOURCE STATEMENTS 

S3T 

I TVPE OF STATEflEHT 

NUMBER 

PERCENT OF TOTAL 

EXECUTABLE SOURCE 

N70 

07*5 

NONEXECUTABLE SOURCE 

19 

3.5 

DOfinENT 

N8 

8.9 

N0N5TANDAHD 

1 

.2 

BRANCH 

139 

N/A 

: CALL 

0 

N/A 

UNFOROATTED 1/0 

0 

N/A 


FOnHATTEO 1^0 0 H/A 

ASSERTION DIRECTIVES o" "" N/A 



OPERATIONAL 

PHCFILE 

TOTAL EXECUTION 

COUNT 

239T 

TYPE OF STATEMENT 

NO EXECUTED 

percent executed 

executable source 

ZH7 

52.6 

BRANCH 

h\ 

*15-5 

CALL 

-9 

50.0 

UNFORMATTED I/O 

D 

100.0 

FORMATTED I/O 

0 

- * IMJl : - 











PET CASE I Di^TE 0H/Z9/U. PAGE 2^1 












# 

PBOGRAtt EVALURTOR 

AND TESTER REPORT 

♦ . 

« 





¥ 

SUBROUTINE OPERATIONAL SUTlFtART 

m' 





¥. 






SUBROUTINE 

NO OF 

PERCENT 

NO OF 

PERCENT 

NO OF 

PERCENT 



STftTFnFNTS 

EXECUTED 

CALLS 

EXECUTED 

BRANCHES 




EXECUTED 


EXECUTED 


EXECUTED 



UN5EIB 

129 

SO. 1 

' N. ■ 

50. 0 

35 

60.3 


CALCEV 

26 

70.3 

0 

100.0 

6 

5^.5 


BEAL IT 

2a 

^?0.3 

0 

100.0 

5 

71 


BVEC 

68 

98.6 

0 

100.0 

15 

SB, 2 


PBOBRflH 

2N7 

52.6 

N 

50.0 

61 

H5,5 



SUBBDUTtWES WOT EXECUTED 
COflPJT 
invEc 






PET CASE 1 


DATE 0^/29/74. 


PAGE 25 


» PflOGAAH EVflLUATOn AND TESTER REPORT * 

■» '. ■ ■ ' ■ ' ■ 

• SUBBOUTJME EXECUTION SUMhARY » 


SUBROUTINE NUnaER 

TOTAL 

TOTAL 

PERCENT OF 

TOTAL 

PERCENT OF 

TOTAL 

PERCENT OF 

NAME TInES • 

EXECUTION 

CALL 

TOTAL 

BRANCH 

TOTAL 

I/O 

TOTAL 

ENTERED 

COUNT 

COUNT 

EXECUTIONS 

COUNT 

EXECUTIONS 

COUNT 

EXECUTIONS 


UNSEIG 

1 

560 

IN 

2.50 

121 

21.61 

0 

0,00 

CALCEV 

3 

3N 

0 

0.00 

7 

20.50 

0 

0.00 

REAL IT 

7 

515 

0 

0.00 

32 

6.21 

0 

O.DO 

RVEC . 

N ■■■ 

1238 

0 

0.00 

170 

13.73 

0 

0.00 







PET Case i d«te qh / zs / ts , pabe zfi 


• ■■ . ' * 

♦ PROQRAfl EVALUATOR AND TESTER REPOBT * 

* ' ... M 

* SUBROUTINE TlHiNG SUnnARV ^ ♦ 

• : 9 


TOTAL 

EXECUTION TinE FOR THIS CASE 

,04E 

SEC 

TOTAL 

TlnE IN nONITQRED ROUTINES 

.U38 

SEC 

TOTAL 

TIME IN OTHER. ROUTINES 

.00«( 

SEC 



DETAILED SUBROUTINE TIME 

KONlTORlNa 


SUBROUTINE 

TIME RELATIVE TO MAXIMUM 

ACTUAL TIME 

PERCENT OF TOTAL 

NAME 

SUBROUTINE EXECUTION TIME 
1 * = TWO PERCENT) 

IN SECONDS 

MONITORED TIRE 

UNSEtC 




CALCEV 


.001 

2.B3 

REALTT 



21.05 

HVEC 


.012 

31,58 


TCTAL TIDE IN POSTPROCESSOR 1.S6T SEC 



PET CASE 1 

STATEflEHT 

NUP1BEH PROGRAH LISTING (LEADING N INDICATES CDNVEASION WARNINGS) 


DATE D*«/2«yTA. 


PAGE 1 


SPECIFIC EXECUTION DATA 


IN pane RAH UNS£1G( INPUT. DUTPUT.TAPES = 1NPUT.TAPE» = DUTPUT) 


2 C FDR DESCRIPTION OF METHOD USED IN THIS PROGPAH, SEE *^>THE OR 

3 C TRftNSFOnttflTtON^* 8V FRANCIS, COMPUTEA JOURNAL, VOL, ^ PP. 265,332 
H C START HERE TO PRODUCE UPPER HE552WBURC MATRIX 


5 DIMENSION aU 0, 10 }, VEC ( 8 ), E IGVEC ( R >, IMTII 0 >,CCUO ), SSM 0 ) 

6 DIMENSION ZnoijDMO, 10), Bat 10,10 » 

DATA A / 0.1 .5 .af. 1 .9. 3. 2. 6*0. 0.2. 8,3. 9. 0.7 .0.1 .6*0.0, 


8 X 6. 2, 3. 5, 0.6,1. 2,6*0. 0,9. 9, 6. 2, 1.7,3. 8 / 

9 UMAX =10 




4 D01J=1,K 

■ 1 

S Kl=J+l 

- 2 

5 K2=J+2 

2 

r GREAT= RBS(fltKI,J))* 

2 

i MAX=KI 

Z 

7 0021*1(2, N 

2 


20 

21 

22 

AB= Aa5(ft(I,J)) 

IF (GREAT. GE.AB) GO TO 2 
3 GHEAT=AB 

3 

3 TRUE 
1 

2 FALSE 

1 

23 

MAX=I 

1 



2N. 

2 CONTINUE 

3 



25 C 

INK I ) GIVES INFORMATION ABOUT INTERCHANGES 




26 

INT(J)=MAX 

2 



27 

IF IMAX.EQ.KI) GO TO 5 

2 TRUE 

1 FALSE 

1 

! .. ■■ 28 

H D06L*J.N 

I 



29 

E*A(K1,L) 

3 



30 

A(ia,L )sA(MAX,L) 

3 



31 

6 A(MAX,L)=E 

3 




D07L^1,N 

E=A(L,K1) 

A(L.K1 )=flfL.MAX) 


RIGHT nULT. DONE 

HESSENBURG MATRIX NOW FORflEO AS A(1,J), MULTIPLIERS STORED WITH IT 
DO 105 1=1 .N 


DO 105 J=l,H 



35 

36 C 

37 

7 

5 

AIL, MAX )=E 
INTERCHANGE DONE 
D0el=K2,H 

2 



38 


IF tAU,J).EQ.O. ) GO TO e 

3 TRUE 

0 FALSE 

3 

39 


AtI,J)=-A(I,J)/AtKl,J) 

3 



90 


D011M=K1.H 

3 



91 

11 

At I,M I=A{ I,M)+A( I, J)*A< K1,M) 

8 



92 

8 

continue 

3 



93 C 


LEFT MULT. DONE 





1 DO 2000 M=K2,N 

2 



IF (A(n,J).ED.O.) GO TO 2000 

3 TRUE 

0 FALSE 

3 

. 10 DO 2001 1=1, N 

3 . 





2001 

At I,KI )=A( I,Kn*-A( I,M>*A(n,J) 

12 ' 1 


2000 

CONTINUE 

3 ] 

1 Jit- 

1 

CONTINUE 

^ 2 ^ ^ ^ - 


1 






PET CASE 1 

statehekt 

WMBER PROCnAn LISTINQ (LEADING N INDICATES CONVERSION UARNINDSl 


5A IPS DC t . J 1= At I ■ J ) ^ 

55 C PUT APPROPRIATE ZEROS UHERE TtULTIPUERS WERE STORED 

56 DO 106 ltt3,N 

5T L=l-Z . 

50 DO 106 JPl,L 

50 106 Atl. J)x0«0 

60 X1=H^1 

61 R=0.0 

62 c-o.e 

63 D033!=l ,H ■ 

6*» : : fl=R+ AOS( A(t,m 

65 33 C=C+ ABStA(I,Nll 

66 DD3«ir=2.N 

6Z BS=t>.0 

68 CSiiO.O 

6S L=l-1 

TO D035J=L»N 

T1 RS=nS+ ASStAttfJll 

72 KlJ-ia"J 

73 K1I=K1-1 

7T 35 CS=CS+ ABSf AfJ(U,Kir >) 

75 IF t RS.LE.H ) GO TO 36 ^ 

76 37 n=R5 

77 36 IF <CS,LE,C 1 GO TO 3T 

78 RR C=CS ■ 

7't 3T CONTINUE 

00 IJICsl 

81 IF (R.GE.Cl GO TO 5N 

82 C DELTA 15 CRITERION FOR STOPPING AN ITERATION 

83 53 DELTA=B*l,OE-ll 

6»t C PEL IS ARaiTRAHV SHIFT • ■ 

85 DEL=R/17,182V 

86 GO TO 153 

87 5A DELTA=C^1>0E-I1 ^ 

88 DEL=C/1T.1829 

89 C DELTA COrtPe^ED 


90 C PRODUCE A-P I . ITERATE DM THIS TD BREAK UP EIGENVALUES OF EQUAL HQDt 

91 153 DO 107 Isl,H 

92 107 A(1,I)=A{ I, I 1-DEL 

93 55 IF (N.NE.l) GO TD N« 

C SUBROUTINE CALCEV CALCULATES EIGENVALUES OF 1X1 OR 2X2 flATBlCES. 

95 C PI IS ADDED BACK IN CaLCEV 

96 97 CALL CALCEVt A . NPIAX , DEL ■ VEC . I JK . W . 11 

97 GO TO 76 

9fl *10 IF (N.NE^2 1 GO TO 80 

99 99 CALL CALCEVI A , NflAX, PEL , VEC . I JK ,N,2 ) . 

TOO GO TO 76 

101 c DR tbansforhation starts here 

102 C INITIALIZE for DFTERHINING SUBSEQUENT SHIFTS 

103 80 AR1=0«0 

ton AR3-0.0 







If 


PET CftSE I 


STflTEMEUT 

NunSER PROGR/m LISTING (LEADING H INDICATES CONVERSION HARNING5) 


_ flR^sQ.O ■ ' 

"^RE-EWTEB after REALIT DR COtlPlT 5OBR0UTINES CALLED 
SELECT FIRST UZEROJ) SUB-niRGOHAL ELEflENT I’HOrt BOTTOH 

61 L^N ^ - 

DOSS I-Z^N 
N21=N+2-l 

lFt BBS(fl(N21.N2I-in.LT. DELTA IGD Tp 57 

56 LsL-l 

VALUE OF L SELECTED 

57 IF (L.HE.H) GO TO E9 " ■ 

5B CALL CALCEV(A,NnAX,DEU^VEC, 1JK,N, 1 ) 

N=N-l 
GO TO N8 

59 IF ((L-N+l ).NE,0 > GO TO 75 

60 CALL CALDEVI A,«nAX,DEL*VEC, IJK^N,2) 

N-N-Z • ■ ' - 

GO TO 55 

DETERfllNE EIGENVALUES OF ZX2 MATRIX -- ROM 1 ~ A(H-1,N-I) 

ROM 2 = A(N>M-I ) 

AND base shift on these 

75 B=A(N-1,N-1)+A(N,N} 

C=Atfj'l,N-l )VAIN,N)-A(N.N-1 )*A(N^N1 


ClsA(H-l,N~n-A(N,NI 
DI5C=Cl*Cl+'< .0*A(N,N-lH^A( N-ljN) 

IF (D15C.GE.0. ) GO TO 63 

62 ni=0.5*B 

R2=V5# SQRT( ABS( DISCI) 

ANUM=(Rl-Afl3)»(R)^AR3)+{R2-AR‘n¥{B2-AR4l ^ 

DENDM=AR3^^AR3+AB4¥AR4 
IF (DENOM.NE.O. ) GD TO 200 

201 RHQsO.O , •- 

SIGf1A=0,0 
GO TO 203 

200 RHD=C : 

5IGnA=B 
203 AB3=R1 

AR4SR2 

CALL COttFlT( A,NnAX,L,N,RHO,SIGNA) 

GO TO 61 

63 IF (B.GE.O. ) GO TO 65 ' 

64 R1=,5*(B- SORT(OISC)) 

GO TO 66 

65 Hl=.5*(a+ SORT! DISCI) 

IF I HI .NE.O. ) GO TO 66 

03 H2*0,0 
GD TO B4 

66 nZsC/fll 

HOOTS OF 2*2 MATRIX FOUND 
fl4 IF( ABSCA(N/N )“B1 ),GE. ABS( A(M.N)-R2 ) )G 

67 AH2=Rl 
GO TO 69 






ArB 


I 








PET CASE i 


DATE O't/28/76, 


PAGE $ 


vn ^ 

ol 




• ■.■■■ * 

» PROGRAn EVALUATOR AND TESTER BEPCRT * 

A ' - 


FOR SUBROUTINE UNSEIG * 





SVNTflCTlC PROFILE 


TOTAL NUMBER OF SOURCE STATEMENTS 


TYPE OF STATEMENT 
EXECUTABLE SOURCE 


NONEXECUTABLE SOURCE 


COMMENT 

NONSTANDARD 


BRANCH 


CALL 

UNFORMATTED I/O 


FORMATTEp i/0 




NUMBER 

156 


190 


PERCENT OF TOTAL 
B2. 1 


2,1 


15. B 

,5 


N/A 


N/A 

N/A 


H/A 







OPERATIONAL 

PROFILE 

TOTAL EXECUTION 

COUNT 

560 


TYPE DF STATEflENT 

NO EXECUTED 

PERCENT EXECUTED 


EXECUTABLE SlURCE 

125 

80.1 


branch 

35 

60.3 


CALL 


UNFORMATTED I/O 
FORMATTED I 








PET CASE 1 

DATE 0<l/28/7b. PAGE A 

strtement 

NtinGEB PROGRAH LISTING (LEADING N INDICATES CONVERSION WARNINGS) 

COONT SPECIFIC EXECUTION DATA 


1 

SUBROUTINE CALCEVi A. NMAX.DEL.VEC,IJK.N.«) 





2 

CmENSlOrj A(NnAX,NnAX ],VEC{ n 





3 

IF tn.NE,!) GO TO 2 


3 TRUE 

I FALSE 

2 

H '■ 

1 RI=0*0 


2 



5 

A{N,N)=AtN,N)+DEL 


2 



6 C 

STORE EIGENVALUES IN VEC 





7 

VECt UK )=A(N,N ) 


2 



a 

VEC(IJK+1)=A1 


2 



9 

IJK=IJK+2 


2 



10 

RETURN 


2 



11 

2 S=A(H-l,N-i J+a<N,N» 


1 



12 

C=AtN-l,N-l )^^A(N*N)‘A(N,N-1 )*R(H-1,H) 


1 



: 13 

Cl=R(N-l ,N-1 )’A(N,NJ 


1 



IH 

DISC=Cl*Cl+9 »0*A(N,N-1 )*A(H-l,N> 


1 



15 

IF (DISC.LT.O. > GO TO 9 


1 TRUE 

0 FALSE 

1 

16 

5 AIsO.O 


1 



it 

IF tn.GE.O. ) GO TO 6 


1 TRUE 

1 FALSE 

0 

18 

Rl=0.5jf(&- SDBT(DISCH 

. » ■ 

0 



19 

GO TO 7 

■ m. 

0 



20 

6 H1=0.5*(B+ SQRTeOlSCJJ 


1 



21 

IFtRl.NE.O. ) GO TO 7 


1 TRUE 

1 FALSE 

0 

22 

IQ H2=0.0 


0 



23 

GO TO 11 


0 



25 

7 R2=0/R1 


1 



25 

11 Hl=Rl+DEL 


1 



26 

R2SR2+DEL 


1 



2T 

VECUJK)=H2 


1 



28 

VECUJK+l)=AI 


1 



29 

VECIIJK+2)=R1 


1 



30 

VECUJK+3)=Al 


1 



31 

GO TO 8 


1 



32 

9 R1=0.5¥B 


0 



33 

RIs-,5* SQRTt ABStDISClJ 


0 



35 

R1=RI+DEL 

♦ 

0 



35 

VEC(IJK)=R1 


0 



3* 

VEC(IJK+1 )=*AI 


0 



37 

VECtIJK+2)=fll 


0 



3B 

VEC(IJX+3)=AI 


0 



39 

a IJK=IJK+N 


1 



90 

return 

. 

3 ^ 




HI END 



3Z. 


DATE 0X/2fl/76. 


^ i»Hd!}HAO EVAUUATOH AND TESTER REPOBT * 


FOR SUROaUTirtE CALCEV 



SVNTACTIC PROFILE 

TOTAL NUMBER OF 

SOURCE STATEMENTS 

A1 


I . TYPE OF STATEMENT 

NUMBER 

PERCENT OF TOTAL 


EXECUTABLE SOURCE 

3T 

90.2 



NONEXECUTABLE SOUHCE 


COMMENT : 

1 

2. 

NONSTANDARD 

0 

0. 



BRANCH 

U 

N/A 

CALL 


0 

N/A 

UNFORMATTED I/O 


0 

N/A 

FORMATTED I/O 


0 

N/A 

ASSERTION DIRECTIVES 

0 «/A 




OPERATIONAL 

PROFILE 

TOTAL EXECUTION 

COUNT 

3*1 

TVPE OF STATEMENT 

NO executed 

PERCENT EXECUTED • 

EXECUTABLE SOURCE 


70.3 

BRANCH 

.6 

54.5 _ : 


CALL 


UNFCWIATTED I/O 
FOHflATTED 









PET CASE 1 
STATEMENT . 

NUriBEn PROGRAM USTiNtl (LEADING N INDICATES CnNVERSION WARNINGS) 


itlBROUTlNE REAL iTt A ■ MilAX.L.H. SHIFT. C.S) 
DIMENSION A(Nt1AX,NllAX}/Cn),S(l) 

IF ( SHIFT, EQ.O, 1 GO TO 2 

1 D03 t=L.H 

3 AU,I >5An,I)-SHIFT 

2 fl-H-l 

DOB r=L,M : 

DENDds 50RT( At M )**2+A( l + l,n»i»2) 

IF (OENan.GT.O. I GO TO 10 

11 CM )^I.O 
5( I J=0,0 
GO TO A 

10 C( 1 )=A( r, I K^DEHOM 
S( I >=A( 1 + 1, I l/OENDM 
Ad, 1 )=DENOn 

12 n-i + 1 


IT DO 3P J=I1,H 

16 F=A( 1, J) 

19 At r, ji=Ad+i,ji»5( n+F+cc n 

20 A( I+l, J )SA(|+1,J )*C( n-F+SC I) 

21 35 CONTINUE 

22. A CONTINUE 

23 C TRIANGULAR MATRIX FORMED 

ZH 005 J=L,M 

25 D06 I=L,J 

2A F=AI I, J I 

27 A( 1, J)=Ad,J+I )+StJ )+F+CtJl 

26 6 At I.J+ll=Ad.J+l l+C(J)-F*5t J) 

29 At J+1,J }=At J+i,J+l )+S{ J) 

30 5 At J+l,J+U=AlJ+l,J+n+C{J) 

31 C TRANSFDRMATtON COMPLETED 

32 IF ISH1FT,E0.0.) RETURN 

33 7 009 I=L,N 

39 9 A(I,n=Ad.l)+SHIFT 

35 e RETURN 

36 END 


7 TRUE 


2 FALSE 


5 







PET CASE I 


DATE Qfl/2B/76. 




m- * 

» PflOCflftH EVflLUflTOH AND TESTER BEPOHT * 


* FOR SUBROUTINE BERLiT * 

• ■■ P 



1 SYNTACTIC PROFILE 

TOTAL NUMBER 

OF SOURCE STATEMENTS 

3t 

TYPE OF STATEMENT 

HUMBER 

PERCENT OF TOTAL 

EXECUTABLE SOURCE 

31 

86.1 


NONEXECUTAfiLE SOURCE 


conriEKT 

nonstandard 


BRANCH 


call 

UNFORMATTED I/O 


formatted I/O 


ASSERTION DIRECTIVES 



OPERATIONAL PROFILE 


TOTAL EXECUTION COUNT 

515 


TVPE OF STATEMENT 


CALL 


unformatted 1/d 

FOHMATTE 


NO EXECUTED 


PERCENT EXECUTED 


executable SOURCE 

20 

90.3 

BRANCH 

5 

71 .A 









DATE 0*l/Z8/Tfc* CAGE 10 


STATEME^n 

NunfiEn PROGflAn LIETINS (LEADING N INDICATES CONVERSION l^AnNlKGS) 


SPECIFIC EXECUTION DATA 



SUBBDUTtNF tOWPIT( A.NWflX.L.N.RHO. StGftA 


OinENSION A(NNAX,NnAX} 

HOUSEHOLDER TYPE lAATBICES USED INSTEAD OF flOTATIONSt SEE FRANCIS PAPER) 
n=N“i 


5. ■ 
S'. 

7 

DO 1 lsL,H 

IF ( KNE.L ) 00 TO 3 

2 BlirAtL .L ftfL.L l-StGNA )+A(L .L*n*A(L+l ,L)+RHO 

m 

8 

02sA(L^l,L >t(A(L,L )+AtL+l,L+n-5IGf1A ) 


8 

B3=A«L+),L )*A{L*2,L+1 ) 


10 

A(L+2.L 1=0.0 


11 

GO TO * 


12 

3 Bl=An,I-l ) 


13 

B2=A(I+1,I-1) 



IF lI.EQ.n) GO TO 5 
B3=AU+2,I-1» 

GO TO fr 


B3=0,0 

D= S0nKBUBt+B2*»2+E3*B3) 
IF (B1.GE*0. ) GO TO 1! 


20 ^ 

7 D=-D 


21 

8 IF (D.EO.O. ):ao TO 1 


22 

9 Cl=B2/tD«n 


23 

C2=B3/(Q+ai } 

■ .' * - ■ 1 

2A 

E=2.0/U.0+C1*C1+C2*C2) 

. ♦ 

25 

no ID K=I.H 


ZS 

IF n.EQ.M) GO TO 12 


27 

11 G=E*( A( I,K )+Cl*A( I+l^X )+C2»A( I+2,KH 


28 

At J.K )=A{1.K1-S 


29 

At 1+I,K )=At I+l,K )-CI»e 


30 

AtI+2^K)=A(!+2,X)-C2'»G 

• 

31 

GO TO 10 


32 

12 G=E¥(A(I,K)+Cl*Atl+i,K)) 

* £ 

33 

Atl,K)=A(Ij,Kl-Q 

¥ £ 

39 

A(I+1,K)=A(I+I.K)-C1*0 

m t 

35 

10 CONTINUE 

* 0 

3i . 

IF n.EQ.L) GO TO 19 

. ' * ■ 'C 

37 

13 At 1. 1-l )=-D 

. * . 0 

38 

At I+l, I-l )=0.0 

* 0 

31 

IF ( l .EO.m GO TO 19 

¥ 0 

90 

15 At 1+2. 1“l )=0.0 

¥ 0 

9) C 

flDU OPERATION COrtPLETED 


92 

19 J=I+2 

¥ 0 

93 

IF ( J.LE.N ) GO TO IT 

¥ 0 

99 

16 J=N 

¥ 0 

95 

17 DO ia K=L,J 

¥ 0 

96. 

IF ( I.EO.M J GO TO 20 

¥ 





50 

yi 

52 

20 

At K, 1+2 JsAtX, 1+2 )-C2¥G 
DO TO 18 

G = E¥t At K . I l+CloRtK. I+l )1 

¥ ( 

. ¥ £ 

¥ ( 

53 


At K, I )=At Kji tl-G 

¥ ( 

59 


Atx, 1+1 )=A(x, r+n“Ci¥s 

. ¥ C 

55 

IB 

continue 

« f 






PET CASE I 

STATEMENT ' 

NUMBEH PROQAAM LISTING (LEnPlNB H INDICATES CONVEnSION WARNINGS 


IF t J.GT.N ) GO TO I 

Zl G=E#P2^Fft(l+3,I + 2) 

An+3,n=-o 

A( 143. 1^1 1="C1*B 
fit l+3,l+21=A( 1+3, 1+Z )-C2*0 
C COLUMN OPEHfiTlON CGMPLETED 
1 CONTINUE 
RETURN 
END 


COUNT SPECIFIC EXECUTION DATA 





PET tJftSE J 


DATE 0l/2fl/76. 


PACE 12 


« PRaDRAn EVALUATOR AND TESTER PEPOAT • 
« ■ ■ ♦ 


FOR SUBROUTINE COrtPIT 


SVNTACTIC PROFILE 

TOTAL HunBEB 

OF SOURCE STATEMENTS 

65 


7VPE OF STATEdENT 

NUMBER 

PERCENT OF TOTAL 


EXECUTABLE SOURCE 

59 

90.8 


NONEXECUTABLE SOURCE 

3 

H.6 


cbnriENT 

■ 3 

9.6 


NDNSTANDAflO 

0 

0.0 


BRANCH 

29 

N/A 


CALL 

Q 

N/A 


UNFORMATTED I/O 

0 

H/A 


FORMATTED I/O 

0 

W/A 


ASSERTION DIRECTIVES 

.0 

— ^ i 

N/A 



THIS SUBROUTINE WAS NOT EXECUTED 









PET CftSE 


STATEnENT 

NUtlBEH PROERAn trSTING (LEADING N INDICATES CONVERSION UARNINGS) 


SPECIFIC EXECUTION DATA 



SUBROUTINE RVECf A.NWAX. IKT.CI >SrtAtL .« .HUn . E IGVEC . NV 


DIMENSION AtWHAX^NMAX J, lNTERt l),VU ),INT( I I, EIGVEC(HnAX,HMAX J 
001 1*1 

1 At i,i j=A(T.i )-ci : • 


DOZ I=Z,N 

IFl ABStA(l“i»I-l}).GE. ABSlA(l,I-n))DO TO N 

3 INTER! nn 


J=I-l 
D05 K*J,K 
B=At I-I .K > 


At I-1,K J=Al 1,K J 
5 At I,K1*B 
GO TO A 



4 

12 TRUE 

b . 


A FALSE 


t ■■ ■ 

N INTES{I)=i-l 

■ 6 



t 

6 IF TAtI,l-ll,EO.O. ) GO TO 2 

12 TRUE 

0 FALSE 

12 


C='^A( 1 , 1 -n/At 1-1 - 1-1 1 

12 




All,I-n=C 
DO « 

a A(I.K)aAtI.K)+C*A(l~l,K) 


^ continue 

D - triangular MATRIX FORMED 
D09 1=1 ,N 


IFt AaS(A(J,in.OE.SMALL)GO TO 4 
ID Atl, IJ=S(1ALL 
9 CONTINUE 


C NOnnALISED ( (EIGENVECTOR n OF HE5SENBURG MATRIX OBTAINED FDR RK5 = 
00 5555 1=1, N 
5555 Y( 1 1=1-0 


DO 8888 JJJJ=1,N 
77TT VtN)=YtN}/A(N,W) 
B=Y(N) 


DDU I=2,H 

E=0.0 

M=N+1-J 


D012 J=2,l 
L=N+ J-I 

12 E=E+Y(L1*A(M-L 1 


Y(n>=(¥tfl)-El/A(«,M1 
1F( ABStBl.GE. ABStVtnniGO TO ll 
13 a=YtM) 


1 1 CONTINUE 

DOIA I=1,N O O 

IN Y(!>=¥t n/a pri 

' IPtjjjJ-EO.NIGC TO 66A6 
D015 1=2, H 

IF ( INTERt Tl.NE.n GO TO 15 


16 B=¥{I) 

Y(llsYri-U 

v(T-n=a 


15 v( ii=Yt i )s'At i,i-n#vU“n 
8800 CONTINUE 



U TRUE 
0 
16 


N 

16 


N 

15 

16 


6 

S 

8 


a 

6 

6 


N8 

N8 TRUE 
28 


N8 

16 

69 

16 TRUE 


16 FALSE 


20 false 


N FALSE 







P£^ CASE 1 


STATEMENT 

NUMBER BRaGnAtl LISTING (LEADING N INDICATES CONVERSION WARNINGS) 

■ 

EIGENVECTOR CE HE.5.S.ENRUBG :MATR I * PATATNEO (NOT. NORMAL I ZED f . 

53 

6666 t1=N-l 

5*1 

0021 1=2, M 

55 

JrN+l*'! 

Si. 

L=J+) 

5T 

0020 K=L,N 

SB 

20 V(K)=YtK)-V( J)*BtK,J-l) 

59 

LL=INT(N“I I 

60 

IF I J.EQ.LL) QO TO 21 

61 

19 D=V( J I 

62 

Y(J)=VtLLJ 

53 

V(LL7=B 

65 

21 continue 

65 C 

UNNDRMALIZED EIGENVECTOR OF ORIGINAL MATRIX 08 TAtNED 

66 

8=0.0 

67 

D022 1=1. N 

60 

1F( ABSCBI.GE. ABStVltmcO TO 22 

69 

23 D=V(I) 

70 

22 CONTINUE 

mEM 

D02R 1=1, H 

■31 

25 V{l)=y<n/B 


NORMALIZED EIGENVECTOR OBTAINED 

75 C 

PUT V(I) (BEAL EIGENVECTOR! IN EIGVECK NUMOFEV, I J 

75 

DO iOO 1=1, N 

76 

100 EIGVECI NUM, n=Y( n 


77 HETUflN 


7« END 






PET CftSE I DATE OH/za/74. PACE 15 


* 0 

» PHOGBAM EVALUATOR AND TE5TEB REPORT * 


♦ FOR SODBQUTtNE BVEC * 


SVNTACTIC PROFILE 



TOTAL HUMPER 

OF SDUBCE STATEHEHTS 

78 


TYPE OF STATEflENT 

NUMBER 

pebceht of total 


EXECUTABLE SOURCE 

SO 

88.5 


NONEXECUTABLE SOURCE 

3 

3,a 


COMMENT 

6 

7.7 


nonstandard 

0 

0.0 


BRANCH 

17 

N/A 

• - 

CALL 

0 

N/A 


UNFORMATTEO I/O 

0 

H/A 


PURMATTED I/O 

0 

N/A 


ASSERTION DIRECTIVES 

0 

»/A 



OPERATIONAL 

PROFILE 


TOTAL EXECUTION 

COUNT 

1238 


TYPE OF STATEMENT 

NO EXECUTED 

PERCENT EXECUTED 


EXECUTABLE SOURCE 

68 

OB. 6 


BRANCH 

IS 

88,2 


CALL 

0 

100. 0 



UNFORnATTED I/O 0 1.00.0 


FORMATTED 




DATE CH/28/T6. PAGE U 


STATEMENT 

NUMBER PROGRAM LISTING PLEADING N INDICATES CONVERSION UARNINQS) 


SPECIFIC EXECUTION DATA 




SUBROUTINE IflVECI A.HnAX . INT.C 1 . BnU . SMALL ,W . NUM. E IGVEC .WVEC . INTER. 


iY,z,e> 

dlMENSIDN AINMAX.NMAX)^ INTER! 1 ),yu ),2< 1 I, INTI ) A( NMAX,NMAX >, 
lEIGVECtNMAX.NHAX ) ■ 


DOSO IslfN 
DOBO J^I,N 
50 BCI.J)=0.0 

001 I-1,H 
AU,n=A( /, 1 J-Cl 

I Bt I. I 1=BC I, n-AWU 

002 I=E*H 

C=A( 1*1 J-1 >»B( > 

D=A( I , t -1 )*A( I.T-1 l+Bf 1 . 1*1 l»Br 1 . 1*1 1 
E.O) GO TO N 
J=I 


D=G 

J=I~1 

005 K=J,H 
G=Af I*1,K) 

A( I-l ,K l=Af l.K 1 ■ ■ 

Atl^Kl^G 

GsB(I-l,K> 

8( T-l.KliiB( T.Kl 

5 0<I,K)=G 
GO TO A 

H INTER! I )i=I-l 

6 IF (D.EO.O. } GO TO 2 
r G=Atl,l*U 

A< 1 , 1-1 )=-t G*AC 1*1 . 1-1 HBC 1 . 1-l i*BC 1-1 . 1-1 »/C 
Bt I, 1^1 )=-t B( I, I-l J¥A( I-l t I-l J-G*B( 1-1 ,1-11 »/C 
008 K-1,N 

A( I,K l-Atl,KI*A( 1,1-1 1»A( 1-1. K l-B( I.T-1 i*B( 1*1. K 1 
a p( J*A( I-1,K )+A( 1,1-1 )*Bt l-l,X) 

2 CONTINUE 

TRIANGULAR MATRIX FORMED 



30 

D09 1=1, N 




1 31 

C=At I, I J^-A< I, 1 )+BI 1,1 )*Bt I, 1 ) 

. 



10 

IF <C, GE. SMALL J SO TO 1 



¥ 

11 

MI,n= SORT! SMALL I 




■ 12 

B( 1,1 1=0.0 



♦ 

13 

9 CONTINUE 



■ 1 

11 

DO llil 1=1, N 



♦ 1 

15 

Ym=i.o 



* 1 

14 

II 1 1 Z( I 1=0.0 



AA 1 

IT 

DO afl88 JJJ=1,1 



♦ < 

18 

C=A(N,N)'»A(N,H)+B1N,NJ*B1N,N) 



* < 

11 

G=V(N1 



* ( 

50 

V(N l=tG*A(N,NH2<N >*B(N,N>1/C 



* ( 

51 

ZI N >=( 2t N )*A< N,N 1-G*B( N,« I l/C 



* 1 

52 

DOir 1=2. H 



» ( 

53 

E=0.b 



® C 

51 

F=0.0 



♦ c 

55 

M=N+1-I 



* c 

5* 

' f ‘ " 

ODia Ji'2,1 



^ ti 




PET CASE 


STATEnENT 

NUnBEB PROGRAn LISTING (LEAOTHG N INDICATES COHVEnSION IjARNlNQS) 


SPECIFIC execution DAT* 



E=£+Vt L }*‘A< n, L )-Z( L n,L ) 

18 F=F+¥(L J+ZIL ) 

D=A(n.n i+ain.rt i*6(W.H> 


GsV(fl) 

T( rt )=t < a-E )*AT H,n )+t Z( n i-f }*Br n,n d/d 

IT Ztpn=( tZ(M )-F J-IG-E J*B»f1.f1D/D 


= 0.0 

D051 1=1, M 

F=Vl I >*Yt J U2( J 1*2( 1 ) ■ 


IF f E.CE.F) GO TO 51 
52 E=F 
L=I 


51 CONTINUE 
ni=Y(Li 
A2=Z(L) 


DaiH I=1,N 
G=vn } 

Y«I>=tG^FAl+Zf I>*A2)/E 


IN Z(n=lZ{lJ^Al-G»A2)/E 
IFt 1 GO TO 
D015 1=2. N 


IF 1 INTEBU J.NE.l ) GO TO 30 
lA G=y(I) 

v ( i )= vri - i ) 


y(I~i )=B 

Q=ztn 
Z ( I )= z { i-n 


85 

84 

67 

30 

15 

Z{ I-I )=G 

Vt I )=V( I HA( 1,1-1 )*Vt I-l }-B{ 1,1-1 )*2t I-l) 
2( I )=Z{ r KBt 1 . 1-1 )¥VC I-l )■^A( I. I-l ) 


. 

¥ 

¥ 

■■■ ¥ 

1 

< 

( 

88 

8888 

CONTINUE 



m 

0 

89 

C 

EIGENVECTOR OF HESSENBURG RATRIX OBTAINED 





90 

A68A 

n=N-i 



¥ 

0 

91 


0021 1=2, H 



'¥ 

( 

92 


J=N+1-I 



¥ 

c 

93 


L=J+1 



. ¥ 

c 












STATEriENT 

NUnSER PROGRAn LISTrNG tLERDlf^G N IF^DtCATES CONVERSION WARNINBSJ 


113 

22 

COMTIHUE 


■IIiM 


A1=V1L1 




RZaZlL) 




0024 Isl.N 


■njjlili 


GSV( M 




Yt nsfO^M+Zn )*R2)/E 


BtlH 

24 

Z( 1 1=( 2( I )*A1-G*A2T/E 


120 C 


NORPIflLIZED EIGENVECTOR 

OeTAINED 

121 C 

PUT 

Y( 11 IREAC PART) IN ElGVECTfNUnOFEV, 1 ) 

122 


no 100 I = KN 


123 

100 

EIGVEC(NUn,l 1=Y« n 


129 


hun=BUtt+i 


1H5 C 

PUT 

Ztn (COHPLEX PART) IN 

ErOVECTlKUnOFEV. I) 


izh CO 101 isi,N 

127 101 EIGVEP(NUn,I)=Z(l) 

120 RETURN 


129 END 





* FOR SUBROUTINE IMVEC * 




SYHTnCTIC PHOFILE 

TOTAL HUrtBEB 

OF SOURCE STATEMENTS 

177 

TYPE OF STATEOENT 

NUMBER PERCENT OF TOTAL 

EXECUTABLE SOUHCE 

110 

92.9 

NONEXECUTABLE SOURCE 

3 

2.-9 . 

COflOENT 

6 

N.r 

NONSTANDARD 

0 

0.0 

BRANCH 

17 

W/A 

CALL 

0 

N/A 

UNFOnilATTED I/O 

0 

N/A 

FORftATTEO I/O 

0 

N/A 

ASSERTION OIRECTIVES 

0 

N/A 

THIS 

SUBROUTINE UAS NOT EXECUTED 









PET CASE 1 DATE Of/ZB/7fc. PAGE 20 





• PPOBHAn EVALUATOR AND 

TESTER 

REPORT * 




• FOB PBQGBAM 

UN5E10 

♦ 





SYNTACTIC PROFILE 

total nufiber of 

SOURCE STATEMENTS 

53T 

" TYPE OF STRTEnENT 

NUMBER 

PERCENT OF TOTAL . 

executable SOURCE 

N70 

AT. 5 

nonexecutable SOURCE 

19 

3.5 

COfIrtENT 

HB 

0.9 

NONSTANDARD 

1 

.2 . 

BRANCH 

13A 

H/A 

; call , ■ 

8 

N/A 

UNFOBnATTED I/O 

0 

N/A 

formatted I/O 

0 

H/A 

ASSERTION DIRECTIVES 

b 

H/A 


total EXECUTION 

OPERATIONAL 

COUNT 

PROFILE 

2347 

TYPE OF statement 

NO EXECUTED 

PERCENT EXECUTED 

executable SOURCE 

2*17 

■■ 52-6 . ■ 

BRANCH 

61 

NS. 5 

CALL 

N 

50.0 

UNFORHATTEP I/O 

0 

100.0 


FODHflTTEP-t/.O 








PET CftSE 

- ■ 1 

DATE 01/2S/76. 

PAGE 21 




• progNah evaluator and tester bspobt 

• . , ■ 

» 




* SUBRDUTINH OPERATIONAL SUftflAflY 

• 


SUBROUTINE 

NAME 

ND OF 
STATEMENTS 

PERCENT NO OF PERCENT 

EXECUTED CALLS EXECUTED 

NO OF 
B RANG RE 5 

PERCENT 

EXECUTED 


executed 

EXECUTED 

EXECUTED 



UNSEIG 

125 

00. I 

H 

50.0 

35 

60.3 

CALCEY 

26 

.70,3 

0 

100.0 

6 

5A.5 . 

RERLIT 

20 

90.3 

0 

too.o 

5 

T1 .t 

RVEC 

60 

98.6 

0 

100.0 

15 

88.2 

PROG RAH 

ZHT 

52, 6 

H 

50.0 

.61 

H5.5 

SUBROUTINES 

NOT EXECUTED 







COMP IT 


IrtVEC 







DATE 0*1/16/76 


PET CASE 


PAGE 22 


* PnOGRAH EVALUATOR AND TESTER REPORT * 


* . ^ • 





SUBROUTINE EXECUTION 

SUMMARV 

m 


• 

SUBROUTINE NUnSER . 

TOTAL 

TOTAL 

PERCENT OF 

TOTAL 

PERCENT OF 

TOTAL 

PERCENT OF 

NAME TIMES 

EXECUTION 

CALL 

TOTAL 

BRANCH 

TOTAL 

I/O 

total 

ENTERED 

CUUNT 

COUNT 

EXECUTIONS 

COUNT 

EXECUTIONS 

COUNT 

EXECUTIONS 


UNSEIG 

1 

560 

IN 

2.50 

12! 

21,61 

0 

0.00 

CALCEV 

3 

3t 

0 

0.00 

7 

20. 5T 

0 

0.00 

HEALIT 

7 

515 

0 

0.00 

32 

6.11 

0 

0.00 

BVEC 

N 

1230 

0 

0,00 

170 

13.73 

0 

0.00 


2- 3 e. 




r': --4"t r 


Ae3R£vUnQMS..USED. Ifci.lKE. IU3HIRAN J/ERlf4£fi-SJf4BOL-.TAatES~pQLi;oia>4G-T-ME-iiROr.HA«- Uf4M:--L-|ST-4 


..Type K^Y. 

CDUUHN 1. 


_ilSUEE_}CEY.. 


E explicitly typed 

COLU‘’H 2* ^ 

I I^TEGSR 
R. real 

D double precision. 

C COHPlPX 
L LOGICAL 
h: R0U.SP1 1^, „ - 


P o 

S'! 

,0 

G 

Bs 

& 


.CQlUt<AS 1 and 2, 

FA jlfiITHMETICBSTATEHEKtf<FuNGTION ARGUMENt 

__£.Ml_FJ.NCT!.OtJ - 

E : ESfTERMALtFUNCTION OR SUBROUTINE) 

6T AESIGNEO GOTO VARIABLE 

UTKINS iC. EUNCT ^ 

SN SLBROUTUE 

V variable \ 


.AT4R I mUC-KEY 

cqLuhn 1 ‘. : 

C IN common 

-CCLrUMA]-E._ ^ ^ 

E IN AN EQUIVALEKOE STATEHENT 
COLUMN 3, 


4)U(iHV-ARGUHSi 


COiJUHN -1, 

S value SET BY PROGRAM UNIT 

-COCUHNS -5„JLND-di : 

S SCALAR 

AX ARRAY WITH X DtHENSlONS 




97 . 

98 

99 


loo 

l£»l 

102 

103 

104 

105 
in A 
107 
infi 

109 

110 

111 
112 

113 

114 

115 
llA 
117 
llfl 
119 
i?Q 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 
13 b 

136 

137 

13 B 

139 
1^0 
14 1 
142. 

143 

14 4 
145 

14 6 
147 

14 B 
149 

15 o: 

152 


t tC ^i n TT . ' Nb ’ . 0 1 ■■ mj -' T TrT?** - '' 

6Q Call CAuCEVtAifiMAXiDEUiVEC# JjKrWi2J 
N*N-2 
Go TO 55 


- 'll 


0 UETEHKIhE ElGENukUES or 2X2 HATrIX nb ROW 1 f AfN«i'iM 

C RCW 2 « AlNtN*-U AfNjM 

c and 1<ASE shift. DM JHESS.. , „ — : 




75 B = A(N«l4i4»'li*A(N;N) 

CsA(N-l,N«U=*AtN.N)*<A(N,N»l)*Ang«i,N» 
C1 sA(N*-1’.N-1»-A(NjN 1 
DlSCaClixCl^rt ,0«AlNr>gnl)*A(N«liN) 

IF (DISc.GE.Or ) GO TO 63 

62 HlsOi5»0 

. R2s. 5* RQRTf ADS {DISC)) 

AN)JH3{Ri-AR 3)* tRl«AB3)*(R2"AR4 )i(R 2-AH4) 
DENnH-An3*AR3+Aft4«'AH4 
IF {OENom.mr.Q, ) GO TO 200 
201 RHOaOjO 

SlGMAaO^ 0 ; _ 

Go TO 203 
200 RHDsC 

SIGmAsB . _ ... 

203 AR3*R1 
AR4aR2 

call COHPltUi.NMAJtiL'iiiiRHDiSlGllAJ — „ 

Go TO 61 

63 IF (3,GE.0. ) GO to 65 

64 Rl=,5*ta* SIRTCDISCJ} 

GO TO 66 

65 Rla,5*(B+ SnRTiDlSD)) 

. IF tRliNE.D. I 5Q TO 66_ ^ 

83 R2fl0 tO 
Go TO B4 

66 R2 = 0/Rl . - ^ 

ROOTS OF 2*2 MATRIX FOUND 

84 IF( A8S{A<*J.N)'*R1)iGEi AUS ( A {h j N )^r2 HCD 70 6B 

67 AR2sRl ■ ' ■■.. - 


GO TO 69 

6a AR2*R2 : 

69 IF (ARI.nE.T,) Go TO 71 

72 SHIFT^sO.d 
GO TO 73 

71 BHIFTrAr? , . . 

73 AHlaAR2 

CALL RfeALlTtA/NMAXiLiNiShlFTjCC.SS) 

Go TO 61 .. . .. 

ARE VECTORS vEEtlED 
76 IF (NVEc*EO.O) GO TO 600 

INVERSE ITEbaTI'^N is gSFD..FQR_E 1 gENVECT.0H§^ 

550 SHALLRDElTA«l,0Et.30 
NUM*0 
Jl»l , 

NMrNN+Nm 

Cl IS RFAU PART OF eigenvalue 

513 ClfcvECUl) . 

C2 IS COMPLEX part OF EIGENvAUE 
CEsvECI J t*l) 

.MiMrNUH*! 

replace HESbEND'IRG matrix and multipliers 

CD 570 ItltVN 

Do 57 0 ja 1 , MN , 

570 AnWi-OMiJ) 

If {C2,MF*CI.1 go to 561 

CftLL RVFifA, NHAX.INT , Cl, SHALL iN\,Num’,. EIGVECiNVEC»5C*SS1 - 

- : ' v: 

ir(f4VEL,EQ.V'UM)CiO TO t>jD 







NVBC 

I 

V 


N2I 

I 

V 

- 

H 

1 

V 


ReALit 

■ 

Sl^ 


RHO 

tt . 

V 

/ 

RS 

R 

V 


RVEC 


Sfj._ 

V 

R1 

R 

V 


R2. 

R : 

V 


R 

R 

V 

J 

SHIFT 

R 

V 


SIGm* 

a 

V 


SMALL 

R 

V 

* 

SORT 

RR 

FN 


SR 

. R 

V 


VEC 

R.- 

V 


Z 

R 

V 


.. 105 


. 


J.06 

107 

10 

11 

153 

1 

2000 

2001: 

200 

201 

203 

20 

2 

33 

3^ 

35 . 

36 

37 

3 
44 

47 

48 

4 9 ■ ' 

A 

513 . 

53 

54 
550 

55 
561 

56 
670 
67 

. 


600 

60 

61 

62 


« 


' J ■ - - r ■ 3 


ss 

14 0 

145 

150 

152 

154 

ss 

6 

136 

150 

152 

154 

.... ss. - 

R9 

.90. 




ss 

7 

8 

14 

22 

26 


36 

42 

43 

45 

49 


59 

7d_ . .76 . 

79 

SJL 


B9 

92 

93 

94 

96 


loi 

102 

103 

117 

127 


.. 136 





ss 

liO 

113 

117 



ss 

56 

60 

64 

65 








ss 

165 

107 

115 

120 

122 


I2fl 





ss 

1:^6 

107 

116.. 

. 124 

. 126 

RS 

50 

53 

64 

65 

70 

ss 

132 

134 

136 



. ss 

. .:.lll .. 

..114 

.117 



ss 

139 

150 

154 




106 

120 

122 



A1 

1 

13b 

15C 

154 


u 

1 

79 

£2 

93 

97 

Ai 

2 

154 





42 

43 

4-4 




45 

47 

4 6 




76 

77 





3S 






33 

34 





73 
. 9 

76 
.. 41 





36 

37 

40 




3B 

39 





. 109 

113 





110 

112 115 

160 161 . 


14 

16 

19 

52 

54 


55 

66 

66. 

59 

63 


64 

66 



65 

17 

67 

79 


73 

82 

ai 

95 

.22 . 



143 

71 

153 

"157; 

70 

139 

74 


70 

99 


149 

154 


85 

91 


146 

147 

145 

90 

93 

92 


92 

96 


2l . 

30 


13B 

97 

152 

156 

87 

InS 

lid 

137 


« j* ^ 


4 ^ r\ 





rORTRAN verifier UlSTlKa.Jr.-IHE .P-aQSHAtLaJliLT- — _ — -~lW/i5viL7-5--- C_AE,*.4A<^t 


1 SUBnOUti?jE..cALClyiAiNHAiJ4PEl'^i£n!»iJKi!ltJii^ 

2 DiHENSIns’ A(NmAV!,N«A3<JiVEC{1) 

3 IF {M.NE.n GO TO S 

A 1 AIsDiO 

5 A(hj,N)*A(f^»^f)+DEL 

C STCEE eigenvalues in VbC! 

6 vr-ci IjKjsAf'fiN) ..... ....... 

7 VECtIJ«+i}«Al 

a lJKnIjK+2 

9 RETURN _ .. 

10 2 aqA{N..l,Wiill*AtNiN) 

11 C?AfN»il,«t»il*A{N'iK')irA(NiNnlJ»A{N<-i/N'} 

1? . Ci«a1N"1‘,‘Vi1-A(Nj!I) 

13 DlSr«Cl»Cl*4,0oA(NfN"lJ *A(K"iiNl 

14 IF (PlSc.LT.Ot) GD TO 9 

15 4 AI«0i0 

16 lE (B.,GF,0t ) GO TO 6 

J7 ^<lF0i5*£f)- *3DRT(DISC)) 

16- mG TO 7 .. . : . . — 

19 6 t(l=0,5*(R* ‘SORTtPlSO) 

20 IF(Rt,NE.O. S GO TO 7 

?i 1C R2»o , o' . : . . . ... — ... : 

?2 GO TO ll 

?3 7 K2=C/R1 

?4 .11 «13.p1+Pel — 

25 H2=p2+DEL 

26 VEC{lJK)aR2 

?7 VbCtlJR*l)>Al - 

?a VEC t ijh+ 2 ) Bt?i 

29 VECt I jK*3)i:Al 

30 Go TO 6 . . - : — - 

31 9 fil*0,5*a 

32 Alsn,5* GORTI ABSJDISC)) 

33 Rl»Rl*DEL _. .. .. ; 

34 ' VEC(IJK)«R1, 

35 VEC(IJK+1V,-AI 

36 VECtlJ'^+21«Ri — — — -T 

37 yEC( IJK+31XAI 

36 . B iJKdt JK + 4 

39 RETURN 

40 END 








FORTRiM VERIFIER Ll5 T It^&.-QF— TUM-H-OgR A M ,. \ }U ] 


: , S.gBR0UTlNE;;REALJXUi^HlX^UJl4-£HlEX^.xS 
, dimension A(NHA>f,WHAXl iG(l) iS(l) 

IF {SHIFT, E(J, 0. } GO TO 2 

1 0q 3 laUiN 

3 A(i,ni*An;i)"SHiFT 

2 MbK^I 

:: Dda IrU'iM ' 

OENoHa SORTiAci f I )*»2+A( I*li 1 )**2) 

IF (DENoM,GT lO* } QQ TO it) 

11 CtD’liO 

sn )so,o 

GO TO 4 

10 c ( I) * A (I * 1 ij'IlEll QH ... 

sn )=A(Ui*n/DENOM 
A{ I , i )=?DEMDH 

12 11*1*1 . _ . 

Do 35 Jail'iN 

FbA t I ( J j 

A(I,J)i«A( Uli JJ*£lU*F,f£iai_^ ^ 

A(I+l,J)»A(i+li J)*C{n-F»S(lj 
33 Continue 

4 Continue . - 

triangular wATHix Formed 

Do3 V»LiH 

D06 I skj J , - — . . : 

Fa A t I ( J ) 

A{ I, J)»A( IiJ*ij*S{J)*F*C(J) 

6 A( l jJ*l)«*CtJj"F»5{J), 

A( J*l, J)aAClJ*irJ+l)>St J) 

5 A ( J *1 I J* 1 1 » A t J*1 I J* 1 ) * C { J ) 

_TRANSFORMAT.iON:CQMPLETED__ ^ 

IF {SHIFT, EQtO.) RETURN 

7 D09 UL,N 

9 A{I jn«A{ I i UPSHIFT 

6 RETURN 

■ End : 



PPOfJRAH ^J^aT 


J^RGr'f'.f^NTS 


-1 


__SHir..T. 


TVnf -'S& ATTRlHUTrS R&rEflrjNOES 






19 

20 

25 

26 

27 

28 

29 

32 

c 

R 

V 

ARAl 

1 

2 

1 C 

13 

19 

20 

26 

27 





29 








. .. 

DENnM 

B 

r 

ss 

6 

9 

13 

14 

15 




F 

R 

V : 

ss 

10 

19 

2 C 

25 

26 

27 



U 

1 

V 

S 3 

10 . 


^ ■ 



, 

- , 


— _■ .. 

1 

1 

V 

SS 

A 

5 

7 

e 

10 

■11 

13 

14 






16 

iB 

19 

20 

2 4 

25 

26 





27 

31 

22 






J 

" 1 

V 

S 3 

17 

10 

15 

20 

23 

24 

25 

26 





27 

28 

£9 






L 

I 

Y 

JL S 

1 . 

_ 4 

7 

22 

2 , 4 . - 




H 

1 

Y 

SS 

6 

7 

23 






NHAX 

. I 

V 

A S 

1 

2 







M 

1 

V 

AS 

3 . 

4 

6 

17 

31 




SHlTT 

H 

V 

AS 

i 

3 

5 

30 

32 




SORt . 

■ fr; 



B 








S 

R 

V 

..ASAl 


. 2 - .. 

-.-11 

. 14 ... 

. 19 „. . 

_ 2 .lL. 

26 

27 


T) 


ir 








u> 


la 


.1 

2 

3 

4 

5 

7 

B 

9 

10 

11 
is 

13 

XA 

15 

16 
17: 

IE 

15 

?Q 

?.i 

?2 

?.3 

24 

?5 

36 

?7 

?.a 

39 

30 

31 

32 

33 

34 

35 

36 

37 
3B 

39 

40 

41 

42 

43 

44 

45 
4 6 
4 7 
4B 

49 

50 

51 

52 

53 

54 

55 
HA 
57 


,SUt3RDUTJJj£ 

UlMENSlOM AfNHAX',NHAX) 

HOU55eHQLOER TYPIs HATHIGES USED INSTEAD OF ROTATIOKStSEE FRANCIS PAPER! 

MjtNptl . ■ . ; 

Do 1 !>LpH 

IF { i,NE,tJ GO To 3 

„ 2 . B 1 “ A t U f U ^ * t A { L j L ; H S 1 Gtl A ?.* A ( L '» L *1 ) » A t j-t.l 1 1 . ) * RHCL 

B2aA(i.Ai,L)*{A{L.L)*Aa^l»L*l)»'S!GHAi 
B3ba{1,*i'.L J*A(U+2jU41J 

A(l+2|U j»0.d 
GO TO 6 

3 Bl=A{Iil^il 

H2 = An''i»lai4_.. - 

IF ( I jtQ.MJ GO To 5 

4 •J3s4M*24lai) 

GO TO 6 
B3=D,0 


11 


12 

10 

13 

15 

14 


16 
. 17 

■19 


23 


0= saRT(ai«ni+G2»H2*83*B3j 

I F {91, QE t ELJ.. GQ 

Da-n 

IF (D.Ea.O.l GO to 1 
CliB2/lQ+gil . 

C2?ia3/«D*B11 , 

Es2, 0/1 1.0*01*01*02*02) 

Do lO „ ... 1 . 1 

IF (I .Eq.Mj go: To 12 

GsE-TAll ,XJ*Cl*AtI+i;KJ*C2*An*2|kn 

A( I,X)*A{ I ^ 

A ( I*l'|Ki«Ai l+liKl»Cl*6 
Af I*2,K!aAtf*2iK)"C2*G 

Go tO:-lQ/. 

GaE*!AU,K)*Dl*A(l*i,K) ) 

A[l,K)aA(I,i{)-G 

A( V*l,K)aAti+ljKl’’Ci*Q _ 

continue 

IF tl .Erj.D GO To lA 

A n I -1 j »*Q :■ — _ 

A{ 1*1,1 -1)*Q,0 

IF ( I ,Eo,H 1 GO To 14 

A(I+2, l--l)ali,0 . . .. 

ROW operation oohpleted 

Jsl*2 

IF {J,lE,Nl^QQ JD_3J ^ 

JaN 

Do l8 KbL , J 

IF (I.Eo.Hl GO TO 20... 

G = E*tA (K, n*Cl*A{K, !*l)*C2*A{Kj 1*21 ) 
A{k,naA(K,I l/'G 

A ( I *3tJ TA tKj 1*11 '’Ci*G 

At«, l*2i3A(ki I+EJ-CEk-G 

uo TO in 


o o 


1^2 

ora 

o 

^p- 


ft 


GaE- tAtW) I 1+C1*A(K, UUl 
A(k,1 Jba {K, f )"G 

A {K , I>ll «A ( K J I *1 1 ■'G1*Q 

18 continoe 

0=1*5 

IF ( J, Gt .N) GO To 1 
21 GBt;,C2*M 1*3, 1*2} 

A { I + 3 I I ) »ntj 
Af 1 *.T . ! \ 


X t ^ 






F D fl TR ^ N . V E R 1 F. I E P_ .LI S T I M G - □ F-. 






Subroutine RVE5iAiN^i!jii^JTi5iiSHALL^KjhuntEiii'jEC4.N.y£c*iNTER4^.i_ 
OlHENSlnN A(NHAX,N'’!AX)iIMTER(lIjy(l)*lNTfll,ElGVEC{NWAXtNM,AX) 

DOi IaX»N 

1 AUf n»An,i)-ci 
002 la2|N 

IF( ABSun-l» I-i) ) jGE. ABStAinUDnSO TD A 
3 ImtERII)*! - — : — ^ 

. js]-i : 

1)05 KaJjN 

BsAtluljKj ; . — - — ^ 

An-ljKjaAM ,K) 

5 A(I .KJSR 

GO TO 6 . ^ — 

A iKTEGil JaI-1 

6 IF (AM rEQ.Oi ) GO TO £ 

Cji^Adil^'UyAa^itl'Fil. -- . 

A tl , 1 "1 ) a 0 
Do a K* i ,N 

6 AU^KJ^^AnjkJ+Of.AfUiuKL...—. ^ ^ — - 

2 continue 

( triangular matrix forhed 

D09 — . 

1F( ABS<An,l))«CE.BHALUGC TC 9 
ID A(l,n.»R‘^AU‘ ' 

. 5 CONTINUE - : 

; normalised UEUENVECTORJ} of I'ESSENBURG matrix obtained for RHS t i 
Do 5555 Tb 1 ,N 

555.5 vn ) al l 0 — . ■: 

no RBsa A 

7777 Y(N)5Y(N1/A(N4N) 

BaYlN? ^ ^ ^ 

Don I> 2 iN 
EsC.O 

H«K + lw t - 

0012 JX2‘d 
l=n+Jt,i. 

1? EBE+YSl,.)*AtMiU ^ : ^ — — 

Y(H3MY{M1i.F)/A{R'iH) 

tn AHStaj.oE, Aas{V(H)ntJC tc il 


TO A666 



3B 

13 bBY(M) 


39 

11 Continue 


-10 

0014 I»liN 


4i: 

14 Yn)'Y(i)7a ..._ 


42.: 

lF(J*iJU.E0.4)Q0 


43. 

0015 I*2iN 


4 4 

IF UNTfRIDiNE. 


45 

16 asV{ t J 

r 

46 

yM)aV{T*<l) 


47 

y|I-l}*R ; - 


4B 

15 Y(nRYtI)+A(l,I' 

1 

49 

B608 CONTINUE 


6666 

D0?1 1a2,M 

J s N + 1’' I . 

LaJ.*l :V 
On20 Kat iN 

2n Y{K}aVU)-<Yf J)*A(K» J«l) 

^ ; YlNT h ; :: ■ 


n LErAL syntax of Sus^SCPflPT 


57 

5S 

59 

50 

61 

62 

63 

64 

65 

66 

67 

68 


69 

7D 

71 

72 


IF t J,EO,L l1 go to 21 
19 BsYt J) 

Y ( J ) * Y ( LL l._ — 

Y(LL1«Q 

21 CONTINUE 

c UNNORkalIZEq enENVEcTOR OF 0^^1GI^AL HATMX DBTAIWEG 
BcC . 0. . 

Do2Z l»l.N 

IF{ AHSCB)^5E^ 

S3 BsV( I } 

22 CONTINUE 

. . DO?4 lal'.N ... .- 

24 Y( n»Y< I W8 

c Normalised figenvectqr obtained 
C PUT Yil) ;|»EAU cIG?NvECtoRJ ,IN RlPVECTl.NLHDr.EyxU- 
DO 100 :l»i*V 
100 eigvEc(mu*'i ! { I ) 

return 
END . 


PROgR/.H UNIT 


Rvec 


A>RGUHENTs. 


A . . . 

inter 


haHf 

type 

USE 

ATTRiBUTcS 

references 

ABS 

R 

IF 

- - 

* b 

22 

k 

R 

V 

ASAa 

1 

2 





16 

. 17 





43 

55 

8 

R 

V 

; S3 

10 

12 





— 56. 

iD. 

Ci 

R 

V 

A 3 ~ 

1 

4. 

c 

8 

V 

■ -RS 

16 

17 

EIQVEC 

R 

V 

ASA2 

1 

- 2 

E 

H 

V 

SS 

3l 

35 

inter 

1 

V 

ASAl 

1 

2 


,7 i9 

2 , 7C 

15 36 

2 7 

56 . 


N 

J 

V 

A S 

1 

3 

5 

9 

la 

21 





...29. _ 

30 


2.4 

4H 

42. 





54 

56 

63 

67 

69 


SHALL 

H 

V 

AS. 

1 

22 

23 




V 

R 

V . 

..ASAl 

1 

2 

.. . ..26 

28 .. 

29 

...35 





3fl 

41 

45 

46 

47 

48 





59 

60 

64 

65 

68 

70 

iop 




69 

70 


’ 



1.0 




23 






11 




30 

37 

35 




12 .. 




33 

..^5. 





13 




30 










40 

41 





15 




43 

44 

.^48 




16 




45 






19 




50 






1 




3 

4 





20 




54 

55 





21 




51 

57 

6l 




22 




43 

64 

.. 66.. 




23 




65 






24 




67 

68 





1 ■ , , 




5 

15 

20 






1 

■ j 

■ ’7 : 

i 


A 

i V- 



4 




6 

14 






^ 














rORTRAN VERIFIER LIsTiWo OE-I.HE.EHns{UH_Ul!ilX. 


.Od/iE/75- 


r- 


1 \ 


X 

1 

2 

2 

3 

4 

5 

6 

7 

8 
9 

iO 

u 

12 

13 


t- 


5J 


SUBROUUliE.. 

DlME^Slnw A(NMAlt:,NMAX)ilNTERti),Yii),Z(i)t IWm)i0{MHAXiNHAX)i 
iEi6vec(mmax:.hhaxi 

DObO 

Od5d j*i’. 

0£l»J)»fl.O — 

DOl lai.N 

A{ I , U“At 1 1 i 5-Cl 

B(i, I )-ARu 

Do2 U2,v , 

Dp A ( 1 » 1 "1 > * A 1 1 1 1 ari) *BUi UtUEXlj.UiJ ^ 

IF (CjGtJ.DS 00 TO 4 
iNTERUlPl 


14 


GxC 

15 


CcD 

16 


Dx6 

17 


vn-i . 

IB 


Dos 

19 


GFAtlwi’iXJ 

?0 


AtnijKHAliiK).. 

21 : 


A(1,K)«Q 

22 


3»BtUl,K) 

23 


BtnijKlaBtl-iKn 

24 

■S' 

B£I,K)«G 

25 


GO to 6 

26 

4 

INTER! 1 lM-1 , u 

P7 

■6 

IF fDjEOrO, 1 GO TO 2 

28 

7 

GaAtI|i«l) 

29 


A ( 1 , 1 nl ) *■ iStA t Iplilai J +B-I I.I.. 

3D 


B n * m ) i n n rl "1 1 ♦ A { m 1 1 "I 

31 


DOB Kal,w 

32 


AniK)»A(Iii<)*A{Ij I"l)*An’»l 

33 

B 

Bn<K)s0n ,K) + B(l,l«U*A(Ir.; 


34 2 CONTINUE 

C TRUNGUUAR MATRIX-fDRHED 

35 D09 tnl, Ki 

36 vaA ( 1 1 1 ) ♦ A ( 1 1 1 1 *H (Im 1) M I 1 J 

37 IF {C,Ge,SHaL1.1 CD TO 9 

38 am , 1 1* SORTISHALL) 

39 Bn, l)si0*0 

40 9 Continue 

41 Do nil ui.N 

42 Y[i)»l,Q 

43 nil 2£ I nOiO 

44 DO BQ08 JjJal,4 

45 CaA(NiN)*ACNjN)*B(NiNl*0{NjN) 

46 G^V{N) , - ' . . 

47 Y{N1»{0.A{N,N)42(N)*B(NjN) )/C 


48 

ZtN)*(Z{N) 

49 

D0l7 1-2 jN 

50 

EbP . 0 

51 : 

. F = D,0 

52 

H bN *lr, { ^ 

53 

OOIR l’ 

54 

L-ruJ-»I 


P-E*Y{‘ ‘*A 

57 

DaA{M|fS)*A 








i 

59 


J 

60 

17 


61' 



62 


J 

63 



64 ,-.^. 



65 . 

52 

-/ 

66 



67 

■ 


68 



69 



_ _ - 70 . _ 



71 


^ - 

72 



73 

.... i4 


7<S 



75 



76 



77 

16 


7B 



79 



80 


-> 

B1 



B2 



B3 

■■ ■ 30 


0<5 

15 


B5 

B8BB 



C 


86 

6666 


87 



Bfl 


m* 

^ R9 



90 



91 


W ^ 

02 

20 


93 



Ji. 


V ( H 1 * ( { Q J ■ A ( > h ) + ( 2 ( H ) t*F ) *B { H 1 H n /D 
Z ( H ) * U Z ( M J -F j *< A ( H I H ) » ( G-.E } *E t M 1 H n /I 

D051 

f cYfh'vnwznniznj 
JF t£,eE.Pl_IifljrD-5ii 
t=F 
U-I 

Continue 

Al=y tL ) 

Assza) . 

UOlf I»ij 
G»Yf I) . 

Vn)«jGfAl+7n)*A2)/E 

zii jn{zn jsai^b*azue— - 
lF(JjJ«Ea,-l'j GO to 6646 
Dq 15 I»2iN 

IF {lNTE^awWE*U_QD— TQ-JIO — 

G=Y{I> 

vn}=Y(Ui) 

Y(I-l)»fQ 

G=Z{I» 

Z(I )=z( Nil 

Zn-i)5Q : . : 

V(I )=Y ( tl *Af 1 . l«3.I*Vn"i)'’G< 1 1 NiNZtlull 
zn NZ(I NBdi <I-2i JYZMt»ll 

CavTtNUE — 

ElGc^tVEtTOS or WESSENRUHG J'AtRIX OBTAINED 
ri=N-i ■ 

0021 1-2. » . . - 

LsJ + 1 

l)D?0 K»| iN . . . , . 

Y<K J=Y(K)i.V(J)*AiKi J«l)+2(y)i*B tKi J-1) 

Z (K )*Z(KNZ< J)«A{Kj J^YIv UB (K| J-1) 




“ — 

ii 

~isTrr~ 


ILLEoAL syntax oF SdRSCrIPT 




9A 


Ir ( J.Eq.Ui 



0 5 

19 

GxY{J) 



06 


Y(J)»VIU) 



97 


V{U.)'’G 



98 


G*ZfJ) 

w' 


99 


Z(0)»Z(LL 1 



ino 


Z{LU)=C 



101 

21 

Cci\TlNDE 




C 

UNNORmAu 1Z£P) 



102 


Esfi.O 



103 


0022 I»1.N 


104 


r sv( ii*Y(i J*: 



. 105 


IF {E.6E.F3 ' 



106: 

” 23 

ExF 



in?:' 


l.«I 



10 8 

22 

Continue 



1D9 


AlxVfLl 



110 


A2=Z{U) . 


1 

111 


Co 2d . . 


QO JD-HiL- 


1\ 


U2 

113 

114 


EIGENVECTOR OBTAINED 


GQ.TD 32 


GsYtl) 

Yf n NaSJ/E 

Z(nn{zn }* a1“G*a2I/e 
NDRMALI7FD FIGENvECTDR OBTAIaED 







t 


PRaCRA-H U^MT 


ARGUHFNTp, 


A 

NVEC IHtEH V 


USE attRibutrs references 


A S 

1 

a 


SS 

68 

72 

73 

ss 

69 

72 

.73 

A5A2 

1 

2 

7 


2b 

29 

30 


a7 

„ 48 

.—55 


84 

91 

S2 

ASA2 

1 

2 

5 


24 

£9 

30 


47 

48 

5E 


B4 

91 

S2 



_Ci 

R 

V 

. A 5 . 

. 1 

7 


C 

R 

V 

. SS 

: 10 

12 






45 

47 


D 

R 

V 

.. S3 

.11. 

12 


EIGVEC 

R 

V 

ASA2 

1 

2 


E 

R 

V 

S3 

50 

55 


56 57 


10 

11 

22 

23 

33 

-36 

. 39 

45 

57 

59 

60 

83 

29" 

35™ 

36 

37 


^ li 12 .15 16 . 27 

2 12: 116 119 

50 55 55 60 61 

___ 73.__1Q2-__105 106_ii:2 

51 56 55 60 62 

105 106 


57--. 


inter 

INT 

I 


„?e 150 ii2_ii3_ 

1 2 13 26 

1 2 93 

3 5 6 7 

13 17 15 20 

26 28 25 30 

_3.6 3 a 35 4 1 

53 54 62 63 

73 75 76 77 

32,._a3._, e< . 87 
111 lie ii3 114 

AA 74 

y 4 5 17..,: 18.. 

91 92 54 95 

18 19 20 21 

_ 32 .33 - SC — 91 


63 66 

77 78 

87 68 

Il4 115 

^-18 53. 

95 96 


9 ID 

22 23 

32 35 

-^4i „49. 

70 71 

79 80 

103 104- 

116 iia 


L 

1 

V 

‘ ss 

54 

55 

56 

66 

68 

69 

89 

90 





. ^1C7. 

1C9 

iiO._ 






H 

1 

V 

ss 

52 

55 

56 

57 

56 

59 

60 

36 





87 








NMAy 

I 

V 

A 3 

■ 1 

2 







NUH 

! 

V 

ASS 

1 

116 

117 

ii9 





NVEC 

I 

V 

A S 

t 








« 

1 

V 

AS 

1 

3 

4 

. 6 

9 


_3H_ 

_as. 





41 

45 

46 

47 

48 

49 

52 

54 





62 

70 

75 

86 

88 

9 0 

93 

103 





111 

115 

HE 






SHALL 

F. 

V 

A S 

1 

57 

36 











PP 5734-css V4 RELEASE I.H310CT73 IBM OS AHEHICAN NATIONAL StANDAROCQBOL 


DATE JAN I7ii975 


OOOOl 
00 QOS 

00003 

00004 


IDENTtEICATIQN division, 
PROGNaH-IO, AVSIh,' 
environment division, 
InPUT-DUTPUT section, 


00005 

FILE 

-CONTROL* 




oooos 


SpLpCT CDS . 

assign td 

uT-a 

■SV 5001 

00007 


sflfct avs 

ASSIGN TO 

UT-S 

-SV 3002 

oooos 


SfLect Rpt 

■aSS 1 GN~ to 

UT-S 

- 5 VS 004 

00009 

.data 

nlVlSlON, 




00010 

FILE 

SECTION. 




00011 

FO 

CnB, 




ooois 

01 

CnPR 


PIC 

X tao) . 

D 0013 

.. FD 

A vs.. 




00014 

01 

AvSR, ’ 




00015 


to Filler 


PIC 

X C 04 ) . 

OOOU 


10 AVSR-l 


PIC 

XC 06 ) , 

00017 


10 Filler ' 


■piC 

X( 0 ?), 

00018 


10 AVSR-a 


PIC 

X CbflJ , 

ODOlO 

. FD 

RpT, 




■00020 

01 

■RpTR~ 




00 o 2 l 


05 RPTRSo 


PIC 

X( 80 ), 

O 0 D 2 E 


05 RPTR 53 


PIC 

X( 53 ) . 

00023 

”” HoRKInG-STORArE SbCTlUN, 



00024 

77 

Ctrl 


PiC 

X(OI), 

00025 

77 

cntri 


PIC 

^tObJ 

00026 

-- -77 

CNiRa ' 


PIC 

9 ( 03 ) 

00027 

77 

CnTR 3 


PIC 

9 ( 0 S) 

0002 B 

01 

SnMN-FUAG 

. 

PIC 

X( 01 ) 

O'vOEl 


RpTWS, 




00030 


OS filler 


PIC 

XfOl), 

00031 


Os line-no 


PIC 

XCO 5 ) 

00032 


Os filler 


■piC 

XC 01 )“ 

00053 


Os RPTWS,.! 


PIC 

X(Ol), 

00034 


Os COBX, 




00035 


O 7 cDBx- 3 , 




00036 


10 GnaX-i 


PIC 

XCOlJ , 

00037 


10 CoBX -2 


PIC 

XCOI) , 

00038 

. ■' ■* "" ~ " 

10 Filler 


PIC 

XCOl). 

00039 


07 CDBX- 77 , 




000«0 


10 FILLER 


PIC 

XC 76 ) , 

00041 

.... - ■■ " 

10 CDBX.»aO 


PIC 

XCOl), 


0004S 

000*^3 

ooo«a 

OOOU5 

oooa& 

0004T 

00D*«5 

nonuQ 


05 AV5)!, 

10 AVsX-1 

10 filler 

io AVgX-p 

01 PpTwSX RfdEfiNeS 
0*i RPTWSXBO 

04 filler 

04 . RPTVi&ySS 


RPTW5, 


VALUE 9 * 5 , 

Value zeros,” 
VALUE ZEROS, 

value space. 


VALUE spaces, 
VALUE T'SPACES, 


PIC ACOfc).. 
PIC X£03), 
PIC x(7l), 

PIC A(an), 
PIC X£oA), 
PiC XC53), 


Q o 



- W" 

■—a 

^£5 


{j\ 


00050 


0*; 

filler 

PIC XtE9), 


0005 J 

01 

HORl 

1 • 



0005s 


05 

filler 

PIC xt7?) VALUE 

SPACES, 

000^1 


05 

filler 

PIC XC29) Value 


0005« 



'DATE 01/31 /7B 

page ' , ■ ‘ “ 


0005>S 


05 

PGE 

PIC iZZR, 


0005b 

01 

HnH? 

W 



00057 


05 

filler 

PIC XC8?) value 

SPACES, 

ooo5n 


05 

filler 

PIC X(09) VALUE 

'EXECUTlONt 

nonsg 

01 

H0H3 

• 



00060 


05 

filler 

PIC XtOR)"^' VALUE' 

SPACES, 

noobi 


05 

filler 

PIC xtuR) Value 


0006? 



< annmtated program listing 


0006^ 


05 

filler 

PIC X(M) value 


OOObO 




. COUNT 

) , 

00065 


05 

filler 

PIC X(533 value 


00066 



'SPECIFIC EitE'-UTlON data' ' ”■ ^ ^ 

’’ 

00067 

01 

HlIME 

PIC XCOI) , 


Q006H 

PBQCtnUPE DIVISION, 



OOObO 


□pEN INPUT CUB AVS, 


■ . 

00070 


Open output rPT, 



00071 


Write RPTR frum bline after 

positioning 0 lines. 

0007? 


HnVF SPACES Til CTRL, 



0007 


HnVp 

. 'X' TU CTRL. 



0007 U 

He 10., 




00075 


Read cob into cobX at end 

GD TO HegO, 

■ 

0007 6 


Read avs at end gu to hcho. 



00077 


If 

CTRL . 'Kt and SUHH-FLAG » SPACE 


000 7 fl 



HOVE SPACE TD AVSX 


.... 

00075 



HOVE AV3R-1 TO AVSX-1 



00060 



HOVE aVSr-2 to AVSX*2 



OOOfll 



plsf 


. - ^ 

0006? 



hove avsr To Avax, 



0008^. 


HnVE SPACES TU RpTWS-i, 


1 

0008a .. 


' If 

CD0X»j p 'C' hove space to COBX*i, 


00065 


If 

CORX-1 1 ! <X' MOVE tc to CoBX-1, 


00086 


If 

COBX-t > 



00087 



MOVE M f To SUHH*FLAC 


— 

00008 



MOyE sPAct TO COBXwl 



00065 



APO 0! TU cNTR2 



00090 



move cnTr5 TU PGE 


" 

0009 1 



write RPtR fhoh hdRi 

after positioning 

0 LINES 

00095 



write RPtN from pLINe 

AFTeH positioning 

1 LINES 

0009? 



HOyE OO Til CNTRI 



0009U 



GO TD HClO, 



00095 


If 

COBX-i H 'ET 



00096 



HOVE ' 1 TO SUMH-FLAG 


• ■ 

00097 



HOVE SPAch TD COBX*-! 



D009fl 



ADD Ol TU CNtR2 



0009q 



MOVE cntrh tu Poe 



00100 



write RPtR from HDRI 

AFTER POSITIONING 

0 lines 

OOiOl 



write RPtR from HORB 

after positioning 

1 lines 


f 

00102 . 


WRITE RPtP FROH flLlNE 

after 

POSITIONING 

1 

LINES 


00103 


HOVE 00 TO CNTrI 






OOlOU 


HOvE 00 TO CNTR 3 






00105 


60 TO MClOi 






00106 

If 

CWTRl greater than 

52 





00107 


ADO Ot TU CNTRi 






00108 


HOVE cNTrH TU PgE 






OOIOR 


WRITE RPTk FROM HDRl 

AFTER 

POSITIONING 

0 

lines 


OOUO : 


write RPfR from HDP 2 

after 

PnaiTIONlNG 

2 

LINES 


001 IJ 


WRITE RRtW FHDH H 0 R 3 

AFTER 

positioning 

1 

lines 


00112 ^ ' 


write RPtR FROM PLINE 

after 

POSITIONING 

1 

lines 


00 m 


HOVE 00 TO CNTRI. 






OOU a 

Ano 

01 TO cNTRli 






00115 

If 

COPX-i « (Kt 






OOllh 


HHvE space TU CORX -1 






00117 


MOVE space to LXNE-NO 






00118 


flse 


■ '■ 




ooilo 


ADD 001 TU CNTR 3 






00120 


hove c«TR 3 to EINE"NOi 






■ ■■ 001 2 1 " ■ 

■ “Tf 

SUHH-FLAp * »IT 

- 



rr, ™- 

I-* 

00122 


HOVE SPACE TO LiNE-NO 






O 0123 


WRITE RPTR FKDH RPTWS 

AKTeR 

positioning 


lines 


OQl£«’~ — go YO HCio'r' ”■ 


OOU 5 If CTRL I PXI GD TO HClSi 

0012f. If COSX^S NnY » 3PACE3 AND SUHH^FLAC NOT ■ 'P 

00127 : MOVE cOB5C-r3 TO LINE^ND' ’ ' 

00123 HOVE SPActS TO COBX-3 

0012*3 Else 

~d0l30 - ^ " HOVE SPActS TO lIHE-ND,“''^ 

00131 If CDBX-flO nut k SPACES hove <C' to RpTH3*l, 

0013a HClSi 

00133 ~ KnVE' SPACE Td'"C0BX-8Q, ' 

0D13« HnVE RPTWflXBo TO RPTR0O, 

O0U5 HnVE RPTW.SXS 3 TO BPTB53, 

0013A^‘ ■" “KfJltE RPTR After positioning r UNESr^“~^ — ^ 


00137 On TO HClO. 

0Ol3fi HC20i 

0O13V Cl DSE COB AV^ flpT, 

O0l«n GnBACK, 


✓ 


r' 


! 







■vr-f' ' •'fw 


b 






CONDENSED 

LISTING 




69 

OPEN 

0007DC 

70 

OPEN 

000826 

71 

hhitE"^ 

OyOfibA 

7i 

HOVE 

OOOBBE 

73 

HOVE 

0008C2 

75 

READ 

000BC6 

75 

60- 

0D08EC 

76 

read 

0008F2 

76 

GO 

000912 

77 

IF 

000918 

78 

MOVE 

00092C ^ 

— 79 

hove 

“ 000936 

80 

HOVE 

00093C 

8E 

HOVE 

000952 

,83 

MOVE 

000956 

at) 

IF: 

00095C : 

B4 

HOVE 

000966 

65 

IF 

00096a 

65 

HOVE 

000974 

86 

IF 

000978 

87 

HOVE 

000982 

as 

HOVE 

0009B6 

89 

ADD 

0009BA 

90 

MOVE 

0009A0 

91 

WRITE 

0009RB 

92 

WRITE 

OOOAOC 

93 

HOVE 

DOOAbO 

94 

an 

. OOOA66 

95 

IF 

OOOAbC 

96 

HOVE 

000A76 

9 7 

HOVE 

OOOA7A 

96 

ADO 

OOOA7E 

99 

HOVE 

000A94 

100 

write 

000 AAC 

101 

WRITE 

OOOBOO 

102 

WRITE 

0Q0B54 

103 

HOVE ^ ■ 

OOOBAB 

104 

" HOVE ' 

OOORAE 

105 

GO 

OOOBB4 

106 

IF 

OOOBBA 

107 

ADO 

OOOBCC 

lOB 

HOVE 

OOOBE2 

109 

WRITE 

OOORFA 

110 

WRITE 

OOOC4E 

m 

WRITE 

00UCA2 

112 

WRITE 

000CF6 

113 

HOVE 

00004A 

lia 

ADD 

000D50 

115 

IF 

000066 

116 

HOVE 

000070 

m 

HOVE 

0DQD74 

119 

ADD 

000084 

120 

HOVE 

000D9A 

121 

IF 

OOOOAO 

122 ~ 

~HOYE 

OOODAA 

1231' 

WRITE 

■ OOODB4 " 

124 

“GO 

OO'ODFE 

125 

IF 

00OE04 

125 

GO 

OOOEOE 

126 

IF 

000214 

127 

HOVE 

OOOE28 

128 

HOVE 

000H38 

130 

HOVE 

OOOE46 

131 

IF 

OCOEGa ' ^ 

131 

‘HOVE 

OOOESC 

li3 

HOVE 

000E6O 

134 

HOVE 

OOQE64 

135 

HOVE 

OOOE6A 

136 

WHITE 

OOOEVO 

157 

GO 

OOOE04 

139 

CLOSE 

OOOEBA 

140 

GOBACK 

0006BA 



PRODUCED BV te.3 ) /BEtA CODE ACTIVITY REPORT 

A PRoPRiFTARv program nF 
t BOOLE and RARBACEi IMC, 

leoRO bomFStEAD ROAn AMALYST'3 MAHE" 

; CUP^RTl^i^, CALTFflRMIi qSOlfl LOCATION- 

, ■ a 08 -?EB-iPO 0 


extractor OATA SETS 



data SET NAME FTOqFOOl 

JOB HAHF AV3xX 

STEP NAhE PPEXTHcT 

CONTROL MODULE name MAIN 

tXTRArtTOW 

date t 7 Jan 75 

Start TIME I 5 .?‘ii 33 

Ewn TtHe 15,?A,3R 

REGTom rounds (ApSoLUTEI 

FwA 295000 

LWA 2R10OO 

sample tiounds 

FWA OotlOftO 

LWA PlBBOO 

sample interval CHg) " ' lb 

Sample rcUNTS 


seloh fha 0 

In BOlJMOS bo 


above LWA 

rr 

D50W hAtT 

157 _ 

sample interrupts 


including wait 

311 

Excluding wait 

low 

total interrupts 


CONFiRURATinN Id 


extractor id 

ppEpta.i 

extractor SfRIAl NO'i " 

.. . . 

weirhtimg factor 

1 

study CRITERIA 


start TlMf 

■'^15,23.33 

end TTMF 

15*23. 3R 


DISTHInUTinN OF ACtIVITY CEXClUDING^ DSQW WAIT) 



active 

WAIT 

TOTAL 

below lower sample flOUNoARv 

0,0 

0,0 

0,0 

WITHIN sample BnUNDARIEa 

R.po 

10, SR 

19, SR 

above UPPFR SAHp^p boundary 


5,79 

30,33 

total 


lb. 06 

ii9,5S 


* * * * * 


GS 




PAGE i /, 

REPOHT date 17 JAM 75 

report time is.Eflioa 

analysis huh NUMflER" ’ 



PRDDUCtD ay PPE"*t£i‘^5^BETA CUpE ACTIVITY REPORT CcPNTINUEPJ PAGE H 

BODUE and RARBAGEf InC. ^ 



DISTRlRUTlnN DF DSnW WAIT 

data 3ET 
NAhE 

RYSApFND 
RYSOUT 
svaoni 
5 YS 002 
^ SYSOpil 

TOTAi 


PERCENT OF ACTIVITY 


0,0 

0.0 

6,75 

33,76 

50, «B 



* * ■’*" * * 



HODUUE MAP (EXCUUDING WAIT5 

MODULE first BYTE LAST BYTE 

NAME AOnRFHS ADdMES3_ 

MAIN 00)658 003HOO 

IGUQI 9AR IbitEFO 165000 

IGG0l<JAO IbMOMP IbsiOo 


PERCENT OF HUN TIME MODULES WITH MODULES FOR WHICH 

OVERLAYS REPORTS ARE P_ROVIJ)ED 

26,92 X 

0,0 

0,0 

***** 



PRQOUC&D by PPF-A(S.:^)/BETA C^DE ACTIVITY RePORt tcONTlNUED) 

BOOLE AND p>n8AGE/ Inc, 


STUDY REPORT FOR HnDHLE HAiN 


A, Bounds for tuf stuoY report 

LOMFP BOUND - OOQOOo - 

UPPER QOUND • OlBflOo 

NIJHrER nr BvTfS per UNiT interval - : ‘ 32rO0020tHEX) 


* A * A * 

B, DISTRtBUTtDN of executed instructions CEXCLUDIN6 WAIT) 



active 

•WAIT ■ 

' TDTAL“^ 

flFLOW LOWER study BOUNoaRY 

0,0 

0,0 

0,0 

within sTUDv ROUnQ^RIEs 

26.92 

0,0 ■ 

26,92 

above upper study Boundary 

0,0 

0,0 

0.0 

TOTAL 

26,92 

0.0 

26,92 


* A A A A 


Ci PERCENTaGF of time SPfNT tXecUTINR SVc'5 - 2(1, Ofl 


A A A A A 


Ot The host frequently EVECUtEO intervals CEXCLUOING WAIT) 


STARTINO FNniNG 
location UnCATlON 

nooFtto nOoFSF 
OOrtSPO oOottJF 
OOOflPO oOoflSF 
oonflFO nOniiFF 
oaoOAO nooHRF 
0011 «0 00115F 


percent op run time 


10.58 

6.73 

6.73 

0,06 

0.R6 

0.96 


A A A * A 

E, CflDF FXFCUTZOm FREQUENCY FOR EACH INTERVAL (EXCLUDING WAIT) 



STARTINR 

pNnlNG 

interval 

CUMULATIVE 

histogram -percent of time 

(EACH 

) 

LOCaTTON 

Location 

percent 

percent 

.0 3.0 6,0 

9,0 


,000000 

nOftfilF 

0.0 

0.0 

w ' 


\ 

onospo 

nooflSF 

6.73 

6,73 

-A AAAAAAAAA A.AaaAAAAA AAA 


** 

oooBuo : 

oOOflbF 

6,73 

13. R6 

-A AAA*AA**AA.AAAA AAAAAAA 


\ 

,tinoB60 

nOOBOF 

0,0 

13.1J6 

«* 



OOfiPFO 

OOOBFF 

0,06 

1«,«P 



w/ V 1 

.000900 

O00B9F 

0,0 





onoBAO 

OOnHBF 

0,96 

15,3b 

W*** 



a 


PAGE 3 


3' PERCENT) 
15.0 



PROOUCtD BY PPF-Ata. 5 } 7 BETA CUOF ACTIVITY REPORT CcONTlNUEOJ PAGE li 

BODUF ANfl BABBAGE; ImC, 



starting FNnlNG iNThRVAl CUMULATIVE HISTDGRaH - PERCENT DF TIME (EACH * * 0,3 PERCENT) 

location Location peruEnt percent ,o 3,0 ia,o 15 , 

.OQOBCO 
oooFaq 
.OOOF&O 

001 mo 

. 001160 

♦ THE interval sUe Consists of more than one unit interval. 


* * * * * 



00nF3F 

0 .0 

IS. 3a 

m 






OOOP 5 R 

io»5a 

a5i96 

"****** ***H***!*Tlr***************^***;* 





<1 

OOl 13F 

n.O 

PS.96 

m 

• ' 



— _ 



O0115F 

0.96 

S6,9a 







OlBBOO _ 


Rb,9a 

■ 








CFti) INC* 


.. . intutat, >itgtaii 


PROGRAM 







. tiinm'. ... itMfit, 








LUE 

NUMBER 


0l!2-^iA6 14 FEB 75 

FORTRAN PROGRAM INPIT 

INPUT FORTRAN STATEMENT 


PAGE 


A. 



1 

-2- 

3 

4 

5 

6 
7 

_ 0 
9 
10 
LI 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
" 27 ‘ 

2B 

29 

30 

31 
22 
33 
24 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 
4b 

47 

48 

49 
El) 
51 
E 2 


C REF: UCLA CEMO 14*0 

C FOR DE SCRl PTiaN OF HETHCD USED tN THIS PPOGBAJ^,..AEI_**JJJ'i_QIt 


C TRANSFORMATION** BY FRAACIS» COHPUTFR JOURNAL, VCL. 4 PP. 265,332 
C START >ERE TO PRODUCE UPPER HESSENEURG MATRIX 

DIHENStON A(i0,10I tVECiej , EIGVFC(4,41t IKT ( 101 ,CC IlOD ,SS (lOl 
DIMENSION ZU01,OtlC,10),BBt 10,10) 

data a / 0. 1,5. 8, 1.9,3. 2, 6*0. 0,2, 8, 3, 9, O*7,0*l, 6*0.0, 

Z 6.2,3.5iQ.£,1.2t6*0.0T9.9,6,2,l,7,3.8 / 

NMAX - 10 
NN =• 4 ' 

NVEC = 4 

N*NN 

K*N -2 

_D01J=.1,K 

Kl=J+l 
K2=‘J+2 

GREAT- ABS(A(K1,J1) 

HAX^Kl 
DD21=KZ,N 
Ali= ABSIA£I,jn 


IF (GREAT.GE.ABJ GC TO 2 
: 3 GREAT=AB 

MAX^I 

2 CONTINUE 

C INTI 1 1 GIVES information ABOUT INTERCHANGES 
INTIJ1=HAX 


IF (MAX.EQ.KU GO TC 5 

4 D06L=J,N 
E=AIK1,U 
A(K1tU=A(MAX,L) 

6 AIPAX,L1=E 

DD7L = 1,N_ 

E=A(L,K1) 

A(L,Kl)"AtLTHAX) 

7 A(L,HAX)=E 
INTERCHANGE DCNE 

5 008I=K2,N 

IF (Ail rJl.EO-0 . ) GC T O 8 


A( l,J)=-A(I,JJ/A(Kl,JJ 
D0UM=K1,N 

11 At !,HI = A1I,MJ+A(1, J)*AIK1,M1 
a CONTINUE 

C LEFT MULTi DONE 

on 2000 H=K2,N „ __ 

IF tA(M,J),EC,0.) GC TO 2000 

10 no 2001 1*1, N 

20m At l,KL>»At rtKll-AtltMI^AtHTJ ) 
2000 GONTINUF 
I CUNT INUF 

_C_ RIGHT HUUT, DCNE _ „ _ _ 


C HESSFNDURG MATRIX NOW FCRHEO AS AtI,J). MULTIPIIERS STORED WITH IT 
DO 105 I=*l,N 


CFG, INC, 


PFtPGRAH 


Q1?24:A6 lA FEB 75 


FORTRAN PROGRAM 3NPUT 


LINE 

MJHS£R 


INPUT FORTRAN STATEMENT 


53 

54 

lOS 

DO 105 J=»1,N 
0UfJ1»Atl,J) 

55 

“ C PUT’ 

*APPRaPRrATE ZEROS 

56 


DO 106 l»3rN 

57 


L=I-? 

58 


00 106 J=1,L 

E9 

106 

At It JHO.O 

£0 


K1=N+1 

£i" 


R=0-O 

£2 


C = Q,Q 

63 


D033I=l,N 

64 


R = R+ ABSIAHtlU 

65 

33 

C=C+ A9S(AtI,Nn 

66 


DQ341=2»N 

67" 


RS=0.0 

6Q 


CS*0.0 

£9 


L=*t-L 

70 


n035J=^LfN 

71 


RS=RS+ ABSlAHiJ) I 

72 


KIJ=K1-J 

73' 


"KlI=Kl-r ' 


/ 


55 



56 



57 

J 


90 



99 



100 

V 


101 


M— 

X 

102 


■ '103 
104 


35 CS=CS+ ADS(A(KlJ,KUn 
IF IKS*LE*R> GO TO 36 

37 R=RS 

36 IF ICS.LE.CI GC TO 34 

44 C=CS 

34 CONTINUE 
lJK-1 

IF IR.GE.C1 GO TO 5^ 

DELTA IS C'SITERICN FOR STnppTRG AN ITERATION 

53 DELTA-B*L.0E-11 
DEL IS ARBITRARY SHIFT 

' ' DEL = R/17.1829 ^ " 

GO TO 153 

54 0£LTA=C’t'1.0E-H 
DEL=C/17.182S 
DELTA COMPUTED 

PRODUCE A-PIt ITERATE OK THIS TO BREAK UP EIGENVALUES OF EQUAL MODULUS 
153‘D0 ICT I-UN" “ " ‘ ^ 

107 Al It n=At I, I J-DEL 

55 IF IN.NE.IJ GO TO 48 

SUBROUTINE CALCEV CALCULATES EIGENVALUES OF 1X1 OR 2X2 MATRICES, 

PI IS ADDED BACK IN CALCEV 
47 CALL CALCEV(A*KMAX,CFL»VEC,IJK,K,n 

■ GO TO 76 • ■ 

40 IF (N.NE.2) GC TO 80 

49 CALL CALCEVUtNMAX,DEL,VEC,lJKtNi?1 ^ 

GO TO 76 

QR TRANSFOPMATICN STARTS HERE 

INITIALIZE FDR DETERMINING SUBSEQUENT SHIFTS 

80 ARi=0.0" " " 

AR3=0,0 


•OEIGINAL tkGB IS 
OS- POOB QtlALErr 




jitUMir " joauais 


CFG, ligC, 


PftOGPAH 


LIAE 

NUMBER 


01S24SA6 14 FEB 75 

FORTRAN PPDGRAK INPUT 

INPUT FORTRAPI STATEMENT 


PAGE 


/ X 


105 

106 

107 

108 

109 

110 
Ul 
112_ 

113 

114 

115 

116 

117 

118 

119 

120 
IZl 
122 

123 

124 

125 

126 

127 

128 

1 29 

130 

131 

132 

133 

134 

135 

136 

137 
13B 

139 

140 
141 
1-12 
143 
14 A 
140 

146 

147 
1 48 

149 

150 

151 

152 

153 

154 

155 

156 


AR4»0,0 

RE-ENTER AFTER_JEALIT OR CCHPIT SUBROUTINES CALLED 

SELECT FIRST U ZEROIl ' SlB-OIAGCNAL ELEHENf FROM GOTTCh" 
61 L»N 

0056 I = 2,.N 
N2I*N+2-I 

IFt AQSUtN21,N2I-lU.LT.DELTA)G0 TO 57 

66 L=L-1 __ 

VALUE OF L SELECTED 

57 IF IL.NE.N) GO TQ 59 

58 CALL CALCF.VI A,KPAX,CEL,VECtIJK,N,lJ 
N«N -1 

GO TC 48 

59 IF UL^N+IJ .NE.OJ GC TO 75 


60 CALL C\UCEVlA,NKAX,CELtVBC,IJK,NTZI 
N*N-2 

GO TO 55 . 

DETERMINE EIGENVALUES OF 2X2 MATRIX — ROW I » AtNrltN-lJ 

ROW 2 = AtN,N-lJ 

AND BASE SHIFT ON THESE 

75 B=A{N-t,N“l)+AlNtNJ 

C»AlN-l,N-l]*A(NiN)-AINrN-ll+A tN-l,Nl 
Cl*A(N-l,N-U-AtN,NI 
DI SC?*Cl*Cl+4.0*AtNtK-lJ’*‘AlN-ltNl 
IF IDISC.GE.O. J GO TO 63 

_62 ftl-0.5^0 _ __ 

'R2-.5* SORT! A'BSIDISCn 
ANU'I=IRi-AR3I*tRl-aP3I + (R2-AR4J*IR2-AR4J 
DEACK=AR3*AB3+AR4*AF4 
IF IDENCM,NE.O.J GO TQ 200 
201 RH0=0.0 

:_SIGMA=0.0 

GO TO 203 
200 RHC=C 
SIGMAaE 
253 AR3»R1 
AR4=R2 

CALL CCH PlTIA ,NMAXtii>NtRHG,SI6HA1 

GO TO 61 

63 IF (B.GEeO. ) GO TD 65 

64 R 1 »,S+(B- SQRTlDISCn 
GO TO 66 

65 Rl».5*t8+ SQPTlOlSCn 

IF IRUNE.O*) GO TC 66 __ _ 

83 R2-0.0 
GO TC 84 

66 R2»C/R1 

RDOrS TF 2*2 MATRIX FOUND 

84 IFl ABSlAINiM-RU.CE. ARE (A (N ,N I -RZ H GO TC 68 

61 AW2»Ri _ _ 

GO TO 69 

68 AR2=R2 


AIN-1,N} 

A(NiN) 


4-H 


PBUGPAM 


<Ut2<i:46 14 FEB 75 


FORTRAN PROGRAM INPU 


LINE 

NUMBER 


INPUT FORTRAN STATEMENT 


69 IF (ARl.NE.O*) GO TO 71 

72 SH1F7“0*0 _ _ _ 

" GO TO 73 

71 SHIFT*AR2 

73 AR1=AR2 

CALL REAL IT [A, NHAKiLiNt SHIFT, CC iSSJ 
GO TO 61 

JVRE^VECTQRS NEEDED^ „ , ^ • 

T£> IF tNVEC.EO.O'j GO TC 600 
INVERSE ITERATION IS U5F0 FOR EIGENVECTORS 
550 $MALL*0ELTA*1.0E-30 
NUM=0 
JI^l 

NH=NN+NN 

Cl IS REAL part CF eigenvalue 
513 Cl-VECIJI) 

C2 IS COMPLEX PART OF EIGENVALUE 
C2=VECtJ!+ll 
NUH=NUH+l 

REPLACE HFSSENBURG HATRTX A_NO MULT IPL l.ERS_ 

DO 570 I=L,NN 
OD 570 J=lrNN 
570 AlI,JJ-BtIiJl 

IF IC2*NE.0a J GO TO 561 

CALL RVECU,NHAX, INT,Cl,SHALLtNN,NUH,EIGVEC,NVEC,GCtSSJ 
JI=JI+2 

IFINVEC.EQ.NUMJGD ITC 600 
GO TO Bl3 

561 CALL IMVEclAiNHAX, INTfCl, C2tSMALLtNN,NUHi6IGVECi NVEC, CC, SS, Z, 8BJ 
NEXT statement IGNORES CONJUGATE COMPLEX EIGENVALUES 
jt=JI+4 

_ IFINVEC.EQ.NUHIGO TC_600 _ 

GO TO 513 

600 CONTINUE 

HRTTEl6t7001 I VEC ( 11 , 1 =1 , NM 
DO 20 I*liNN 

3 WRITE{6,700) lEIGVECU I J1 iJ»1,NN) 

30 FORMAT U2j^,5J20. ^/_5E20.8J ^ ' 


A FRIO 44 


LINE NUMBER 193 


*** NC RETURN OR STOP FCLLCWING LAST STATEMENT **♦ 




CFGt INC.. 


PRDGRAH 


01: 2ASA6 lA FEB 75 

STRUCTURED SFORTRAN PPCGFAR 


PAGE 


INPUT UUTPUT NEST 

LINE LINE LEVFL 


? 

? 

A 

5 

5 . 6 

^ 7 

7 " B 

f) 


nUTPUT SFCRTRAN STATEHENT 

ENTRY *** '¥*********>t‘****^*’H***** 

..... REF: UCLA CEPD 14. 0 

FOR DESCRIPTICN OF HFTHDD USED IN THIS PPCGRAP, SEE ^^<+THF QR 
TRANSFORMATION** BY FRANCIS# COMPUTER JOURNAL# VOL, 4 PP, 265,332 
START HERE TO PRODLCE UPPER HESS ENfiUPG RATRIX 

DIMENSION Alio, 10) .VEGtHj t ElGVECt4,4), I hT II 0 1 , CC 1 10 ) , SS 1 10 ) 

_ DIMENSION ZllOl ,Cn0,10),BR( 10, 10) __ _ ™ 

■ DATA A 7 0,l,5.8,l.q,3.2,6*0*0,2.flr3.9',0,7,"0.i,6*0.0, 6.2, 3^5, 

1 0.6,l.2,6*C.0,9.9,6.2,l,7,3.8 / 








10 


C -^%;f(t4<***A*******< *^’(*:(^**** LOGIC START ♦****+***+****************# 





9 

U 


NHAX *10 





"10 

12 


NN 

e 4 


; 



11 

13 


NVEC * 4 





12 

14 


N=NN 


/ 



13 

15 


K=N"Z 








I 






14 

16 


IDJO EflB J=1.K 


/ 



15 

17 

1 


K1=J-H 





16 

LB 

1 


K2»J+2 





17 

19 

1 


GREAT= ABSIAIKI.JU 





IB 

ZQ 

1 


HAX=K1 





19 

21 

1 

" — ^ — -ri 

1. 

■■■ ■ 

llQ ££!B T=K2tN 





20 

22 

2 

1 

AB= ABS(A(i,J) ) 





21 

23 

2 

1 

JL£ IGREAT.LT.AR) 





22 

24 

3 

i 

GHEAT=AB 





23 

25 

3 

■T : 

MAX=I 






26 

2 

1 

END I£ 

i 1 

y 

;r 



27 

1 

i 

1 J 

END DD £D3 

II. 

> 

iJ 



2B 

1 

c t 

INTm GIVES INFORPATICN ABOUT INTERCHANGES 

1 . 




26 

29 

1 


INTIJ)=HAX 

1 




27 

30 

1 


1£“IHAX.NE.kH ^ 





28 

31 

2 

i 

ICD FDB L*J,N 

-- J 1 

1 1 

i' 



29 

32 

3 


1 E=AIKI,L) 

'11 




30 

33 

3 


1 A1K1,L )=AIHAX,U 

1 1 




31 

3 ^ 

3 


) A(HAX,L)=E 

n — 

li 




.35 

2 


j£iUD DD ECS 

1 1 

>) 















1 

1 1 



'(Jt 

32 

36 

2 ■ 

J 

iDfl ECB L=i,N 

1 1 



' 

33 

3 7 

3 

1 

1 E=AtL,Kl) 

1 i 


L 


CFG, INC* 



INPUT 

OUTPUT 


LINE 

LINE 


34 

3B 


35 

39 



40 



41 



42 


37 

43 


38 

44 

1 

39 

45 

1} 

40 

'^'46 

' M 

41 

47 


48 

11 


49 



50 

1^ 


51 


44 

52 

/ 

. 45 

53 

w • 

> 

4b 

54 

,, 

47 

55 


PROGRAH 


0l:2A:At 14 FEB 75 
STRUCTURED SRPHTRAN PPCGFAH 


PAGE 6 


OUTPUT SFQRTPAN STATEMENT 


! A(L,Kl)=AtLtHAX] 

J __AtLtHAX}=e 

lENQ DL ££5 



i£ 


IHQ £DB I=K2,N 
1 IE .NE.O.) 

1 A(I,Jl»-Aa,JJ/AlKl:iJ) 


INTERCHANGE DONE 


' >*K1,N 

\ An,P)=A<I,HJ+A n,Jl*A{Kl»Hl 
im D3 £0H 


. ! - if . 
|£iJD no £UB 




LEFT HULT* DONE 


IDQ £QE M=*KZ»N 
I IE tA!H,J).N£. 0 <) 


I I IfND J 

I I 1 . 

I I 

i I EiilD If 

I IftJij J3D £OE 


IDD £QB I"lfN 

! AI IiK11*AII_iMI-A[Ii.H1 + A{H.J) 

IfND DC foa 


i££ja JK £D£ 


53 




I RIGHT MULT,"dONF ~ 

HESSENBURG MATRIX NCW FORMED AS AUiJJ. MULTIPLIERS STORED WITH IT 
IDfl £D8 I»liN 

I 

I I 

L lOD £fl£.J-l|A . . . . J , 

1 f D{T,JJ=A{I,J} 

I IfJiJD J3£ £C1 


CPG^ INC. 


PRUGRAH 


INRUT JUTPUT NEST 

LINE LINE LEVEL 


• i._ .1 j ...I i j 

01;2<tsA6 14 FEB 75 

STRUCTURED SFORTBAN PPCGPAH 

OUTPUT SFCRTRAN STATEMENT 


I i_ 


l£i)D CD £QB 

i_^ 




67 


56 

" ^ Vs 


57 

69 

u 

58 

70 


__59 

71 



72 



73 





~ 60 



61 

75 

It 

62 

76 


__ 6 ^ . 

77 


64 

re' 

^ r> 

65 

79 



80 


1 PUT APPROPRIATE 7ER0S WHERE WULTI FLIERS HERE STORED 



iQi: E£B I=3 tN 
1 L*I-2 



II 

1 ICQ ma J=i*L 
1 1 AH ,JJ=0.0 

1 

1 

1 

I 

1 

I layc CD £DR 

1 

... ^ i 

T 

1 

IfHQ HI EflB 


L . 
1 


K1=N*1 

R*0,0 

C*0*0 


ICC £DC I^ltK 

■| ■ R*ft+ AE£(A(l,rn 

I C=G+ ABSlAlltM} 
l£tm DD Efl£ 




66 

bl 



67 

82 



68 

B3 


21 

69 

B4 



70 

.85 



71 

B6 



72 

B7 

w 

* . 

73 

ae 



74 

89 




“90 



75 

91 

w 


76 

92 



77 

93 

94 

w 

X 

7b 

95 


DC l=?fN 
RS=0,0 
CS-O. 0 
L-I-1 


iCD ECfi J^L,N 
! RS=RS+ ABStMl,Jh 
J K1J=K1-J 
I K1I=K1-I 

I _CS=CS+ A BS(A(KlJ«Klin 

■^Etm CD £DB 

IE IRS.GT.RJ 
R=RS 

i£ 

JL£ t CS.GT.Cl “ ■ 

I c=cs 


1 





CFQr IMC. 


PP.OGR&N 


01:2^:46 14 FEE 75 

STRUCTURED SFDRTRAN PRCGRAH 


PAGE B 


IMPUT OUTPUT nest 
LEVEL 




INE 

LINE 


96 

- - 

97.. 

BO 

98 

81 

99 


100 

83 

lOl 


10? 

8b 

103 


104 

87 

105 

88 

106 


107. 


100 


109 

91 

ilO 

92 

111 


112 


113 

93 

119 


115 


116 

96 

117 


118 


119 


120 

98 

121 

.99 

122 


123 


124 


125 


12 6 

IJ3 

_ . 12 7 

104 

126 

105 

12 9 


IJO 


Ul 


132 

tub 

133 


output sfqrtran statehent 


I IE 

iiim ma_ 


i 


1 JK»l 

IE (R.LT^O 

delta =R* l*CJErlL.. 

DEL=R/X7,1829 

ELSE 

DELTA=C*l.OF-U 

DEL“C/ 17.1829 

..Jam IE 


DELTA IS CRITERION FOR STOPPING AN ITERATION , 


DEL IS ARBITRARY SHIFT 


I 

C DELTA CCHPUTED 

C PRODUCE A-PIi ITERATE CN THIS TO BREAK UP EIGENVALUES OF EDUAL MODULUS 
IQQ fDB I*l»N 
[ _ AtIfI)=AII. I)" DEL 


lEtm Cfl EQfi 


113 


120 


. iJiC . ECJS^'iEB- ^ 

I IE JN.EQ.l) 

SUBROUTINE GALCEV CALCULATES EIGENVALUES OF IXI OR 2X2 MATRICES, 
PI IS ADDED BACK IN CALCEV 
1 CALL CALCEV* A|NHAXfOEL»VEC,IJKiAf IJ 

I UilDI] U3 

< _ _ ' : 

I ELiE 

I ^ ^ ^ 

1 I 

I IM EDBEi/EB 

1 I IE tN.Eq.2l 

I I CALL CAlCEVtAtNPAXtDELTVEC. I4K.N-.21 

I I UUQD 113 

< 

END IE 

I t QR TRANSFDRPATICN STARTS FBPE 

INITIALIZE FOR DETEBRINING SUBSEQUENT SHIFTS 

I I. . APl’OiQ . . _ _ „ 

AP3“0*0 
ARA^O.O 
I 


J I 
1 


IXC EDEEifEB 

IRE-ENTEB AFTfR /RFALI.T, CR COMPIT SUERCU TTNES C ALLED 


ISELECT FIRST (tZEBOll SUB-DIAGCNAL ELEMENT FROM BOTTOM 
1 L-N .... 


J.. 

I 

I 

I 

\ 1 . 
I t 
--J,L 
I I 
I : 






1. 


CF3, INC 

■ 

PROGRAM 
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STRUCTURED SFORTRAN PRCGPAK 


I KPUT . 

OUTPUT 

NEST 







LINE 

LINE 

LEVEL 





OUTPUT SFORTRAN STATEPENT 






1 

1 

t 








I 


J_ 

1 


109 

134 

4 




1 

11313 £CB 1=«2,N 


iiO 

135 

5 



1 

1 

1 N2I=N+Z-I 


111 

136 

5 



1 

1 

1 

1 UIsED If I ABS(AIN2I,N2I-in*LT.DELTAj 


112 

137 

5 


1 

1 

1 

1 

1 

! L=L-l 



138 

4 




1. 

l££113..£fl £0S 







! 

1 




139 

4 

C 


1 

1 

1 

VALUE OF L SELECTED 


114 

140 

4 


1 

1 

t 

1 

UiJ!3D If (L.EC.NJ 


118 

141 

4 


1 

j 

S 

1 

ONDf 120 IF ((L-N+1 J.ED-0) 



142 

4 

c 

DETERMINE 

EIGENVALUES OF 2X2 MATRIX — ROW 1 * AIN-ltN-lJ A(N-1,N1 



143 

4 

c 


1 

1 

ROW 2 > AtN|N-l 1 AiN,N) 



144 

4 

c 

AND BASE 

SHIFT 

CN THESE 


125 

145 

4 



i 

1 

8=A17-1,N-117AIN,N1 


126 

146 

4 




1 

C=A{K-l,N-l)*MN,N)-AtN,N-ll*A(N"ltN) 


127 

147 

4 .. 



f 

1 

C1=A{N"1,N~II-AIN,NI 


12B 

148 

4 



1 

1 

0ISC=C1*C1+4.0*A(K,N'-1}*A IN-ltNI 


129 

149 

4 



j 

1 

If (CISC.GE.O.) 


144 

150 

5 



1 

\ 

If t8,GE,0.) 


147 

151 

6 


1 


1 

R1=.5*(B+ SQRTIDISC) I 


148 

152 

6 





if tPl.EQ.O.J 


149 

153 

4 





R2=0.0 



154 




1 

1 

£LS£ 


151 

155 

7 





R2^C/R1 



156 

6 



1 


Em IE 



157 

5 




1 

Elff 


lt5 

15fl 

6. 





R1 = .5*IB“ SQRTlDISCn 


161 

159 

6 





B2=C/Pl 



IbO 

5 



1 

1 

fI>D If 

^ £3 
a , GS 


161 

5 

c 



1 

PCQTS OF 2+2 MATRIX FOUND 

s§ 

153 

162 

5 



1 

1 

If ( ABS1A(N,NJ-R1).LT, A8St A( N,N1-R2 ) J 

oS - 

154 

163 

6 



1 

t 

AR2=P1 



164 

5 




1 

1 

. _^..£Lif . . 

_ ci 

156 

16 5 

6 




1 

AR2*R2 



166 

:5 




1 

ftD If 

. s> 

157 

lo7 

5 




1 

If lARl.Eq,0.1 


15B 

16B 

6 



I 

! 

SHIFT»0.0 

g teJ 


169 

5 



1 

1 

fLSf 


itaO 

1 10 

6 




1 

5HIFT-AR2 

<jQ 


171 

5 





fID IE 

■ 

161 


5 



1 

( 

7P1«AR2 . 


162 

Ui 

5 



! 

) 

CALL RRALIH AfNMAXtL,N,SMFT,rCiSSl 



1 74 

4 




I 

ELSE 


no 

17 5 

5 



1 

1 

Hi*o.5+n 

. 

131 

1 76 

5 




1 

SQRT« ABSJDISCH 


U2 

177 

ti 




! 

A AU F= ( R 1 -A R 3 1 * ( R 1~AR 3 1 + ( P 2- AP 4 )> t R 2- AR41 


133 

178 

5 



! 

\ 

0ENCF = AR3+AR3*'AR4*AP4 



ar 


CFGr INC. 


PROGRAM 


INPUT 

JUT PUT 

NEST 

LINE 

LINE 

LEVEL 

135 

179 

5 

1A5 

IBO . 


136 

IBl 

6 


lb? 

5 

13 a 

1B3 

6 

139 

165 

6 


1B5 

5 

. . 1^0 

... 166 



151 

187 

5 

152 

lae 

5 


169 

5 


190 

3 

US 

191 " 

. 

116 

192 

3 


193 

2 


119 

IZO 


19 A 

195 

196 
19 7 


“O" 

' X 


165 

199 



200 

1 

167 

201 

1 

166 

202 

1 

169 

203 

1 

.A7Q... ; 

205. 

.1 


205 

1 


206 

2 

172 

207 

2 


208 

2 

175 

209 

2 

175 

210 

2 


21 1 

2 

. J.I 7 . . 

212. 

2. 

176 

213 

3 

179 

215 

5 


215 

,3 


2U 

2 


01 S 2 AS 46 1 ^ FEB 75 

STRUCTURED SFORTBAN PPCGRAH 


PAGE 10 







OUTPUT SFCRTRAN STATEMENT 


I IE tDENCF.EO.O, ) 

J _Pb 0 = 0«0 

I SIGHA=D*0 

I £ISL 

I PHG=C 

I SrGHA=0 

1 ItE IE 

; I AP3=p i . . 

1 AP4*R2 

I CALL CGMPIT1A,NHAX,LiNiRH0iSIGMA) 

i END I£ 

IfilD DE EERpyEfi 


] I 
J.J- 


1 _ 





CALL CALCEVI A,NHAX,OELiVECiIJKiJJrl J 

N=N-l 

^ J3i] EEEEyES 

.1 

I CALL CALCEVtAtNHAXtDEL»VEC»IJK,Ni2) 

I A=N-2 
t££JD M EOBEyER 

J - 


.J 




ARE VECTORS NEEDED 


IE (NVEC,NE.0J 

INVERSE iteration IS USED FOR EIGENVECTORS 
SHALLxDeiTA*l,QE-30 
NUK*=0 

KF=NN»NN 


na EiiBEyER 
ci*vEc{jn 


C2=VECtJl+lJ 
NUH=NUM+1 


Cl, IS REAL PART OF EIGENVALUE 
C2 IS COMPLEX PART OF EIGENV ALUE 


REPLACE hESSENSURG MATRIX AND MULTIPLIERS 


I I 


1 1 .A 


ii?r EOS j=itNN 
I An,j)=oti,jJ 
iEND m fDB 


M 

I I 

M 

I 1 


( 

lEfsD BE ED5 


I I 


■ ■ } 


INC* 


PRDGRAK 


INPUT OUTPUT NEST 

LINE line level 


0l;2Ai46 lA FEB 75 

STRUCTURED SFQRTRAN PBCGPAH 

OUTPUT SFCRTRAN STATEHENT 


I J 



lUO 

217 

2 

# : ■ 

IBS 

218 

3 



219 




220 

3 

1* 

167 

221 

3 


166 

222 

3 

y' 


223 

2 


LSI 

229 

3 



22 5 



162 

226 

3 


I6i 

227 

3 



228 

2 



229 

1 

Tl 


230 



191 

231 







192 

232 



193 

233 

1 



234 


„ ■■■■ 






235 



I IE. IC2.NE.C. J 

! CALL IHVECtA,NHAXtTNT,ClfC2t SFALLTNN,NUH,ErGVEC,NVEC, 

I CC,SS,Z,BB) 

I NEXT STATEHBRT IGNORES CCNJUGATE CCHPLEX EIGENVALUES 

1 

f JJJSiJfl i£, tNVEC.FQ.NUK) ■ 

( £I5£ 

I CALL RVECtA*NHAXiINTTCl,SHALLthh,NUH,EIGVECfNVEC*CGt 

I SSI 

I Jl»JI + 2 

I UODD i£ INVfC . FQ.NUMl 

<*-- — 

I I£ ... 

UJtiC Qi] EI]BEJI£E 


JE _ 

WRITE 16* 900101 I VEC I lit 1 *t |NN ) 


IDJ: £0B I=lrNN 

I WRITE (6t 900101 I E I GVEC <1 . J 1 1 J- ‘ NN 1 




CFG, INC* 


PROGRAM 


Qlt2AiA6 


14 FEB 75 


PAGE 12 


STRUCTURED SFORTRAN PROGRAM 


INPUT OUTPUT NEST 

LINE LINE level 


OUTPUT SFORTRAN STATEREST 


C* **♦*:){*♦*** format statements +^:^+*)tt*+**:t«i<;^=)<*+*****i!e** 
"^10 format"! IH t5E“2Or0“’7~ 5E Zif. 0 j 


gf^Q PROGRAM UNIT ++********i(‘+*+**++*+**** 




FCRMAT CRQSS_REFERENCE TABLE 

FJR.HAr STATEMENT ' ' ' ' “■ 

number ldcaticn references 


yoolo 237 231 233 




f. 


PBQGFIAH 


FORTRAN PROGRAM INPUT 


LINE 

NUMBER 


INPUT FORTRAN STATEMENT 


C,.,*, REFs UCLA DEHO 1A»1 

_SU0RnUTINE CALCEVl A,NHAX,DEL»VFCt IJKtNtHJ 
DIMENSION AtNMAX,NWAXJiVECll) 

IF IM.NE.l) GO TO 2 

1 AI»0.0 

A(NfN)=A(N,Nl+DEL 
C STORE EIGENVALUES IN VEC 

VEC(UKI=AtN,NI „ 

VECnJK+l)=Al 

lJK=IJK+2 

RETURN 

2 0=AtN-i,N-lJ4A<NtN) 
C=AlN-ltN-ll*A(N,M-AINtN-l)*A IN-l.NJ 

Cl=A(N-l,N-l)-AtNtNlJ 

0ISC=Cl*Cl+4:0*AtN,N~U*A(N-l»N) 

IF lOlSC.LT.Q,) GO TO 9 
^ Al^O.O 

IF IB.GE.O. I GO TO 6 
R1=»0*5*IB- SqftTlDISCn 

GO TO 7 _____ 

“ fi Rl=0,5*tB+ SCRT(DTSa)' 

IFIRl/NE.0. 1 GO TO 7 
10 R2=0.0 
GO. TO il 



25 

7 

R2=C/R1 


26 


Rl-Rl+OEL 


27"‘ 


R2»R2+0EL 


£8 


VECI IJKJ=R2 


29 


VECI IJK-H)»=M 


20 


VECI IJK^-2)=R1 

} *' 

31 


VECI IJK-i-31»AI 


32 


GO TC a 


33 

9 

PU0,5*b 


34 


Al=-.5»r SQRTl 


35 


R1=R1+DEL 


36 


VECI IJKI=R1 

9 \ ■ 

37 


VEC(IJK+1)=!-A 


23 


VECllJKf2)^Rl 


39 


■VECIIJK+3J=AI 

^ 4S 

AO 

8 

lJK=IJK+4 


<l 


RETURN 


42 


END 


... II, 


X 


CFG I INC. 


FRDGKAM CALCEV 


INPUT 3JTPUT nest 

line line level 


01:24:46 14 FEB 75 

STRUCTURED SFHRTRAN PRGGRAH 


PAGE 20 




OUTPUT SFORTRAN STATEMENT 


4 

5 

6 

a 

_^9 

LO 

n 


12 

13 

'lV 

15 

16 
17 
Ifl 
21' 
22 
23 

25 


19 


6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 
"17 

IB 

19 

20 
21 
22 

”2 a" 

24 

25 

26 
27 
29 
29 


CALCEV ENTRY J^**********ii=h*:>l‘*********** 

„ ^ RE^ UCLA D®'l47r 

SUBROUTINE C ALCEV I A tNHAXt DEL »VEC , I JK,N,M1 
DIMENSION A(NMAXtNMAX) tVECm 

LOGIC START *****+**♦****+****♦**+♦#**♦ 




IE (M.EC.IJ 
AT =0.0 

AIN,N)=AIN,M+DEL 
VECI IJKJ = AtA|Nl 

VECUJKM)=M_ 

*iJK = ijK+2 
RETURN 

£J1D 1£ 

B=AlN-l,N-U+AtS,Nl 

C=A ( N- 1 , A- 1 ) >* A I N , N) -M N, N:il JAAJN:ilt^« L 
Cl=AlN->l,N-ll''A(N,N» 
DISC=Cl*Cl+4.0*AtNtN-l)*AIN-l,NJ 
1£ tDISC.GE.O. ) 

A 1=0.0 

IE IB.GE.O.) 

_ P1=0.5_*IB+ SQRT(OISCn 

' I£ ■ ( R 1 ^ EO. O.T 
R2*0.0 

USE 

RZ=C/R1 

£ha IE 

£1-S£ _ ___ 

R1=0.5*(B- SQBTIDTSCl r" 


STORE EIGENVALUES IN VEC 




25 

30 

2 

R2=C/R1 




31 

1 

J£ 



26 

32 

1 

Rl=fU+DEL 

w> 

n 

27 

33 

1 

R2*R2+D£L 



28 

34 

1 

VECUJK>=B2 



'“'29 

35 

‘ 1 ■ 

VECnjK+l}*AI 

W 


30 

36 

1 

VECnJK+21=Rl 



31 

37 

1 

VECnJK+3)»flI 




ifl 


ELSE 



33 

39 

1 

Rl=0.5*B 



34 

40 

1 

AI=-,5* SORT! ABStI 



- 35 

41' 

1’ 

■ Rl = Rl + DEL - - 

vi 


36 

42 

1 

VECtIJKJ=Pl 



37 

43 

1 

vEcnjKnf=-Ai 



3b 

44 

1 

VEC ( IJK+21 = R1 

V 


■19 

45 

1 

VECnJK+3)*AI 


1 — > 


46 


EHD IE 


0-\ 

40 

47 


UK = 1JK*4 

iJ 

41 

4fl 


RETURN 


CFGt 

INPUT 

LINE 


INC. PROGRAH CALCEV 0U24:46 14 FEE 75 PAGE 21 

STRUCTURED SFORTRAN PRCGBAK 

JUTPUT NEST “ 

LINE LEVEL OUTPUT SFDRTRAN STRTENEKT., ; 


< . . 

.,^.9 _ _ , ,.,c END pr ogram unit 

50 END 





■i\ 




9 


■ M 


= .-f ' — 


CFG, INC. 


PROGRAM 


01;2<^:A6 14 FEQ T5 

FORTRAN PPQGRAM INPUT 


LINE 

NUKBER 


INPUT FORTRAN STATEMENT 


REFj ’UCLA DEMO I A e2 

JUBROUtJ N E REA LI T{A^NHATt,L,N »SHI FT* C.S] 

DIMENSION A(NKAX,N5^AX}tCU), Sill 
IF iSHiFTiEQ.O,) GO TO 2 

1 003 |-LtN 

3 AtI,lji^A{I,Il-SHIFT 

2 H=N-1 

P DA ^ _ _ ■ 

DENOM-= SQRT lAUt n**2+A(I+lTn»*2) 

IF (DENCH. GT.O.) GQ TO 10 

11 Cl I) =1,0 
SM 1=0.0 
GO TO 4 

10 C l I J =A ( IxU /DEN OM 
sTllVAlt+1,1 l/OENOH 
A(I,I)=OENOH 

12 11 = 1+1 

DO 35 J=I1,N 
F=AIIf J) 

_ __A 1 1 1 J ) =At 1 +l , J J=«'S I I l+F*Cl T J 

Alif it j]=A(i+i,j)*c tti-F“*s in 

15 CONTINUE 

4 CONTINUE 

TRIANGULAR MATRIX FCRHED 
DC15 J=L,M 

__D06 I=L t J 

F=Atl',J] 

At I, J)=AlI,J + l)’«‘St j:+F*CtJ i 

6 An,j+iJ-AntJ+U’»'C(Ji-F*suj 
A(J+ltJ)=Al J + l tJ+ll+SU) 

5 A(J+l,J+H=AtJ+ltJ-«l)*ClJl 

_ ^ TKANSFOPWATICN CCHFLETFD __ 

IF ISHIFT.EQ.0, 1 RE'TURW 

7 DD9 I=L,N 

9 At Till =A(T,I 1+SHIFT 

8 RETURN 
END 


PROGRAM REAL IT 


INPUT tjtput nest 

LINE LINF LEVEL 


0I52A1A6 14 FEB 75 

STRUCTURED SFORTRAN PR CGRAM 

rUTPUT SFDRTRAN STATEMENT : 




' ^ 2 


2 

.: 3 


3 

A 

i 





5 



" 6 


■■ 5 ' 

7 


6 

B 

■■ ■ 9 

' n 





10 


■■. 7 . 

11 

n 

f 




a 

12 

' h 

9 

13 


10 

XA 


14 

15 

/ 

15 

16 


16_ 

17 



. 1 R 

» - ■' 



J*r 

18 ■ 

19 


19 - 

20 

.t 

. 20 

21 


21 

22 

y 


23 

r 



?i • ’ 



/ 


24 


11 

25 


12 

26 

V , 


27 



28 

.Tt, 

■ V 





29 


25 

30 




■1^^. 

U.. 

. 3.1 . 


27 

32 


28 

33 



1 ' - ■ f 





****** pealit Entry ♦*i»*!»4*:t:it**********+=»!t+++.»t 

■ '7;,r,“BEF: uclO^e'hO^TF 
subroutine REALIT tA,NHAX,LiN,SHTFTtC‘,S) 

diHENSTON AtNMAXjNHAXl ,Cll3,StL| * 

+ !#♦****+ LOGIC START ♦*+**T*A*?kl((**A***)(c+*ic*t**#t + 

IE tSHIFT.NE.d.y' ' ■- y ^ ‘ - 


IHQ Eija I=LtN 
I AM ,i )-An,i)~smFT 

1EM12 J3D,:£Q£.__ -.. . - -_ . 

-L - — — 

£i!i) if 
M=N-1 . 

” Ida £<3 b' " i =t:', ~ ^ “ ■“ 

I D£NCH= SQRT(A(r,n’^*2+At l+li n**Zl 

1 IE tDENCM.GT.O.) 

j Cm = Allt I)/DENDH 

I S(n = A(l+ltI)/OENOW 

^ _A (T , I J “nE_NDH__ 

1 ii=*m : * 


I iih: eqb J*UtN 

t ! F*A M,JI 

i A(T,j)-An+iiji*stT)+F*nn 

I I Ai r-ii,j)=An+i J-F*sih 

1 \ lEfJD iiC ECB 

1 ' £L5E 

J. :_ ... ..CXU=T..«C_ : ' 

! stil=o.o 

.1 ■ EtlllJLE 
l£MQ Dfl £D£ 


IDQ £I3B J*LtH 


TRIANGULAR MATRIX FORMED 


I I _■■ 

I 1 F»A('t,JJ 

I I An,J ) = A(ItJ + M*S( J1+F*CUI 



UFui INC. FRPGRAH 0U55I21 lA FEB 75 PAGE 1 

FORTRAN PPCGRAM INPUT 

Tine^~~~ " ' ■ • ■ - -- -V- — 

NUMEER INPUT FORTRAN STATEMENT 



II— 




j 


/■ 






1 C.,.,, REFt UCLA OEHQ 1A.3 

_ 2 _ SUERCXJTINE CCHP IT ( A ,NMAXrL ,N» R HO i S IGHA J _ __ 

3 DIFENSICN AINMAXrNPflX) 

A CHDUSEHOLOER TYPE MATRICES USED INSTEAD OF RGTATlCNSi SEE FRANCIS PAPER) 
.. 5 . : - ' ^M=N-l 

£ DO 1 I»LfH 

7 IF ll.NE.U GO TO 2 

. a _ 2 Bl«AlLTL)*tAlL,L)“SIGHAJ+Aa,L411*ATL+l,Ll+Rhq: , ' ■ 

9 B2=Aa+l,U*lAIL,U4AIL+l,l+i}-SIGHA) 

10 B3=AtL+l,L)*A(L+2,L+l) 

11 AtL+Z,U=0.0 

12 GO TO £ 

13 3 ai=A(ttI-l I 

_ lA _ _ B2*AI M-ItI-1 ) __ ' 

15 ■■ IF (I.Eq.H) GC TO 5" 

16 A B3=A(I+2iT-lJ 

17 GO TO 6 

10 5 03=0.0 

19 6 P= SQRTlBl*Bl+BZ*e2+G3*e3) ' 

20 ___ IF (Bl.GE.O. 1 GO TO 0 - . ■ ' • 

21 " 7 D=-D ” ' * ~ 

22 8 IF (D.EQ.O.l GOTO 1 

23 9 Cl=D2/(0+Bl) 

2A CZ=B3/(C+B1J 

25 E=2.0/(L.0+C1>^C1+C2’^C2) 

26 DO 10 K=I,N 

27 IF (I.EQ.H) GC TO 12 

28 11 G=E*(An,K)+Cl+An + ltKl+C2*An+2,K)) 

29 An,K)=AIIiK)-G 

20 A(I+1,K)=AII+1,K)-C1*G 

31 ' An+HtK)«A(I42,K}-C2*G 

32 GO TO 10 _ 

23 12 G*E*IAtI,K)+Cl+A(I+ltKj) 

34 A{ ItK} = A(lTK>~G 

25 A{l+I»K)=An + l,K)-Ci’t'G 

26 10 CONTINUE 

37 IF tI.EQ.U) GO TO lA 

_38_ •. 

39 An+iti“U=b.6 

AO IF tI.EC.H) GC TO lA 

A1 15 At K2t I“1J =0.0 

42 C RDH OPERATICN CDHPLETEO 

43 14 J-I+2 

44 _ IF tJ.LE.NI GO JO 17 ■ . ■ ' . . ^ ' - 

"45 16 J=N 

■ 46 17 DO 10 K=L, J 

47 IF M-FQ.H) GO TQ 2C 

48 19 G = E*tAtK.n+C14A(KtI+l)+C2»AtK»I + 21) 

49 A( K, I }=A(Kt I )-G 

.5') _ __ AtKtl + l)=AtKtI*-ll-Cl*G __ _ _ ■ • 

' 51 " AlK*I+2)=‘A(KtI+2)-C2*G 

£2 GO TC 18 


1 


CFG, INC, 


PROGRAM COHPIT 


LINE' 

NUMBER 


01:55j21 X4 FEB 75 
FORTRAN PROGRAM INPUT 


PAGE 2 




INPUT FORTRAN STATEMENT 


S3 

55 

56 

57 

58 

59 
£0_ 
'61 
62 
£3 

65 

66 


20 


18 


21 


Gi»E*{AiK,n+ci*A(K, i+in 
AlK,I)=A[K,n-G 
“a [ K ,T+1 1"=A t K , i + 1 ) - C“l+G 
CONTINUE 
J*I+3 

IF U.GT.N) GO TO I 
G=E+C2*A(I+3,I+2) 
A{I+3tD--G _ 

M7+3, I + r)=-Cl'*G''' 

A( 1+3, 1+2) =Ail+3,I+2)-C2*G 
COLUMN OPERAtiCN CCKPLETED 

ccnttnue 

RETURN 

END 


INPUT 

LINE 


PROGRAM CQHPIT 


OUTPUT 

LINE 


NEST 

LEVEL 


01:55:21 14 FEB 75 

structured SFORTRAN PRCGRAM 

OUTPUT SFQBTRAN STATEHENT 


6 

7 

a 

■ " 9 ■■ 

I 


13 

10 

. 2 ■ : 


14 

U 

2- : 


IS 

12 

2 


16 

13 

3 



14 ■ 

■ . 2 


IB : 

15 

■3: - . 



16 ■■ 

2 



17 

1 


a 

18 

2 


g- : . 

19 

2 


10 

20 

- 2 ■ ■ 


11 

21 : 

2 



22 ; ■ 

■ ■■ 1' 


19 

23 

" l'.->' 


20 

24 

1 


21 

25 

2 ■■ 



Zb 

1 


22 

27 

1 


ZJ 

20 

2 


24 ; 

29 

■: 2 ■ ' 


25 

■JO 

. 2.- 


26 

31 

2 


27 

3 2 

3;. 


28 

33 

4 


29 

34 

4 


30 

35 

4 


31 

36 

. 4'.. 



37 

3 


J3 

38 

4 


34 

39 

' 4 


35 

‘lO ; 

A 



4 1 

3 



c CCHPIT ENTRY ***4**:t*-+'**+**+***+^**4*** 

~"c -—r— — — reT; tTclO}EH 0~ i4T3~ 

SUBROUTINE COMP ITT A, NHAXfLiNfRHQ, SIGMA) 
dimension AINMAXtNHAXJ 

■ c »**^*^i*+)k+j(e****A**** logic start ********* +***i4!»t(**ii+****3(t**+ 

~^C ''HOUSEHOLDER TYPE HATRT CFS USED INSTEAD OF ROTAT lONSt SEE FRANCIS PAPER) 
M«\-l ■ 


Dfl £HE I=L,H 
IE II.NE.L1 

Bi=An7PT) “ 

BZ=A( T-tlvI-’ll 
l£ II.KE.H1 

B3=AlI+2, 1^1) 

IL5E . 

B3=0.0 

■ ii)Q If ‘ : - 

■ £Li£ 

Bl*AtLtU*{AlLtL)-STGHA)+AtL,L+l|*AtL+l,L)+RHO 
B2=AtL+l,L)*l A(LtL1+AIL+ltL+l)-SIGHA) 
B3=A(L43,U*AIL+P,L+IJ 
ALL+2 iL )=0.0 

£i!iii i£ ■ ■■■■ ^ ~ " 

D= SCRnBI»El+B2*B2+B3+133) 

IE IBl.LT.O.) 

C=-D 
£ND IE 
IE (D.NE.O.) 

CL=B2/(t:+Bl) ■ " ■ ■ - 

C2-B3/IC+B11 

E*2,0/ I 1.0+-CI*C1 + C2*C2) 


/ N 



QD EHE K^IiN 

IE (I.NE. Ml" ■' ~ ^ 

G=E*(A tItK)+Cl*AtI+l,K) + C2+A(I+2,Kn 
An,Kj=AtltK)-G 
A(I+1, K) = A n + ltKl-Gl*G 
A(H-2,K)=A(rK?tK)-C2*G 

£U£ 

G»E*tAlI,K}4Cl*AlI+i;KV)~ ■ 
A(I,K)=A{I»K1-G 
An+liKl-^An + lfKl-Cl+G 
££ID 1£ 

£i)D 2J3 I£B 


IE CI.NE.L) 


OUTPUT 

LINE 


PROGRAM COMP IT 


NEST 

LEVEL 


01s55:21 


FEE 7S: 


PAGE 4 


STRUCTURED SFORTRAN PRCGRAH 


OUTPUT SFORTRAN STATEMENT 


RGH OPERATION COMPLETED 


A(T,I-1)=“D 

Aj 1+ L t i-u o; 

i£ (I-NE.MJ 

A (1+2,1-11*0.0 

1£ 

£IdC 1£ 

_^+2 _ . _ 

If IJ.Gl.Nl 
J = N 
fUD If 


■ lnc EDS k=l,j : 

I If (I.hE.H'i 

\ G=E*(A(K,t l+Cl*A(KtI^U+C2’?<AlK, 1+211 

1 A(K,n-AlK»I)-G 

I MK,I + 11*A(K,T+1 1-Cl+G 

I A(K,T+2i=A(K, I+21-CZ«G 

El5f : . 

I G=E*J AlKf I l+Cl+AtKrl+Ul 

I A(K,T)*AtK,Il-G 

! A(K,I+11=AIKtI+1)-C1*G 

1 £tJ£ IE 


Ifim D£ fCB 


J*I+3 

If U.LF.Nl 

S*E*C2+A( I+3tI+2l 
AH43i Il»-G 

^ _ An+3rI + ll*-Cl’«’G 

" A( I+3i I + 2l“A ( I+3,I+21-C2*G" 
W If . 

mn If 
QD f£E 


RETURN 


END PROGRAM \JNIT' ♦*+* + *+*+*** + **+***+***♦ 





CFGt INC, 


PROGRAM 


LINK 

NUHEHR 


Cl:55t2l 14 FFB 75 
FORTRAN PROGRAM INPUT 


PAGE iO 




INPUT fortran statement 


n f 


1 - 

3 

4 

5 

6 
7 

g 

IQ 

11 

12 

13 

14 

15 


C,.,.. REF: UCLA DEMO 14,4 

SUBROUTINE RVEC I Ai NPAXt INT fC 1 . SHALL ,N wNUM . El GVEC TKVECf I NTE Ri Y i 


DIMENSION AlNHAXtNMAX),INTERlli,Y( 11 ,INT{llTEIGVEGtNHAXiNHAX) 

001 1 = 1 , N 

All, I)=All, Il-Cl 

002 1 = 2 , N 

IF( ABSUH-l,!”!) ) .GE. ABSt A [I , I-lVl ) GO TC 4 

INTER! n=l _ 

J = I-1 
DO 5 K=J,N 
B=At I-1,K) 

A( l-lrK)=AlI ,K1 
A( I,K) = B 

_GG TC 6 __ • ' • ' - • ^ ' 

lNTERnj = I-l" 


17 : 
IB 
19 
ZQ 
?1 
22 
23 
?4 
Z5 
26 

C=-AUtl-U/AlI-l , I-IJ 
All, I-U=C 
DO 0 R=1,N 

8 AlI,K}=AlT,KUC+AtT-lTK) 





■; 

2 CCNTINUE 

c triangular matrix FCPMED 

009 1=1, N 

IF( ABSlAl I, I n.GF.SMALLlGO TO 9 
10 A lit I) 'SHALL 
9 continue 



- -- 


27 

C NQftMALlSED 1 1 E I GENV ECTQB OF HE'SSENBURG MATRIX OBTAINED FOR RHS * 1 





28 : 

DO 5555 1 =1, A 





29 

5555 Y( ll = i»0 





30 

DO BBPB JJJJ»1,4 





31 

7777 YlM^YlNl/AlNrN] 





32 

B=YIN) , 





33 

poll I=2,N 





34 

E = 0.0 





35 

HsN+I-I ■ 





36 

DD12 J=Z,I , 





27 

L=N+J-I 





30 /■ 

12 E'E+YIL J*AIH,L 1 





39 

YIM)=lY(HJ-E)/AtH,Hl 





4 0 

IFl ADSIBKGE. ABSniMJMGn TO 11 





41 

13 8=YIH1 





42 

U CONTINUE 





43 

.0014 1 = 1, N 





44 

14 Ym=YlU/B 





45 

If UJJJ,E0.4)G6. fo 6666 





46 

0015 1=2, N 





47 

IF IINTERIU.NE*!} GO TO 15 





48 

. 16 B=Y( n 





44 

Ym=Yii-iJ 





50 

Yl X-1) =B 





51 

15 ym=Yiin-Aii,i-ij’*\(i-ij 





52 

8888 CCNTINUE 








'OB QVa 


t r ■! 


PROGRAM RVHC 


Oi:55:Zl 14 FgB 75 


PAGE 11 


FORTRAN PROGRAM INPUT 


■ LINE 

number 


INPUT FORTRAN STATEMENT 


C EIGENVECTOR GF HESSENBUPG MATRIX OBTAINED (NOT NDPHALUFDJ 

_ 6666 H»N-l _ ^ _ _ _ „ _ „ 

DDZl l>2tH 

J=N+l-I 

L*J+i 

0020 X^L.N 

20 VlKJ=«V[K)-Y(J}*An<,J-l) 

• j.L=lNTlK-n _ _ , 

IF tJ.EQ.LL) GO to 51 
19 n=Y(J) 

Y( JJ ^Y(LU 
Y{LU=B 

21 CONTINUE 

C UNNORMAliZED EIGENVECTOR OF ORIGINAL MATRIX OBTAINED 

~B=0,0 - — — - r- “ ^ - 

0022 1=1, N 

IF( ABS(B},GE^ ABS(Vim}GC TO 22 
23 B = Y(n 

22 CONTINUE 
0024 I=liN 

■ ■ 24 Yi n=»Ytn/B ' 

C NORMALIZED EIGENVECIOP CQTAINEO 
G PUT Yin IREAL EIGENVECTORJ IN ElGVECTtNUMOFEVfU 
DO. 100 m»N 

100 EIGVECtNUHiI J-Ytn - 

RETURN . 

~^'END"" . 




CFGt ir^c. 


PROGRAM RVEC 


01:55i2L 1-^ FEE 75 

structurfd SFORTPAN PRCGRAH 


PAGE 12 


INPUT 

LINE 


OUTPUT NEST 
LINE LEVEL 


2 

3 ■ 
A 



6 

9. 


7 

10 


8 

1: 11 . 


9' ‘ 

' "12 ■ " 





10 

13 

jJ . . 

' * 

11 

lA . 


12 

15 


"13 

I’E™"" 

/ 


17 

11 • 



.1 . i-- 


18 


15 _ 

19 



2C :. 


lb 

21 

V 

17 : 

22 


18. 


n 

»» . • 




“1'9~ 

■ 24 ^ 

#* . 

<iU 

25 



26 






27 



' 28 ' 






29 


23 

30' 


24 

' ■ i 

31 


OUTPUT SFORTRAN STATEMENT 

*++!*i*:***-*4r***^c*:{i+ *****+* RVEC ENTRY *^4’t’<‘******nf>*t>i«+*+*****?tt*it’* 


..... REF: UCLA DEMO 14.4 

SUBROUTINE RVEC I A, NHAXTiNTtCli SHALL, NtNUK, E l GVECiNVEC, INTER, Y) 
OIHENSIDN AlNHAX,AMAX),INTERm,Ym,UTm,EIGVECINHAX,NHAXJ 

|!**+*i»i****i4!****sf^***** LOGIC START *’*'*i!i***** **#«**>!> +++*♦+**♦**♦ 


£QB I^LfN 
AM ,I)xAtI ,1J-C1 
£blD QD ECa 




CD £I3fi I*H,N 

IE t AaS(A(I-l,I-Ll).LT. ABStAUiI-lJM 
I NTER! 11x1 - _ _____ 


1 


I 

IDE £D3 P»JiK 
I B^AU-l,KJ 

I AM-I,K)xAlI,K J 

‘A(’fVKy=B . 
jfUQ D£ fDE 

E15E 

INTERtI)=I-l 

EIHQ i£ ~ : 

IE t AM, I-D.NE.O. ) 

C=-A( I,l-1}/A tl-lrl-lJ 
Aii,i-n=c 


1 i 

I 1 

I r 

I I 

~n" 


.11 


■ icc Eoa ■)<=iVN ^ ^ ■ 

I AM ,KlxA(T,K)+C*An~l»KI 
Ifiin DO FQE 


J j 


1 1 

I j 


^£HQ 1£_^ 

^aTQ .aa fCB , “■ ' 


DD £0B t*r,N'~' ■ 

I£ ( ABSt M It I) KIT. SHALL! 


TRIANGULAR MATRIX FORMED 





L 




CFG, I MCI. 


PROGRAM RVEC 


INPUT OUTPUT NEST 

LINE LINE LEVEL 


01*55:21 14 FEB 75 

STRUCTURED SFGRTPAN PPGGPAH 

OUTPUT SFCRTRAN STATEMENT 


PAGE lA 


49 

50 

61 

6? 

3 

: : . 3 - 

1 I Y{i)=Yn-n 

1 1 Yn-n«B 





63 

2 

I 1 £i^D I£ 




51 

64 ' 

2 ■ ■ 

1 1 Y{T} = Y{ n+MI t1-1>*Y(I"1} 

• 

. . 


i 

65 

1 

: ! IfBD DJ: £QB 





bi 


lENQ DC ££B 






j 1 

■ 

. , , 


72 8 9 

73 9C 
91 


EIGENVECTOR OF HESSENBURG MATRIX CETAItvEC {NOT NORMALIZED} 
M=N-1 ■ : 


]DF££B 

J=N+1-I 

L^J+1 


L iJDflfUB KiL,\ , 

1 n V{Kl»Y(KT^J)#AtK,J-n 

I IfiJi! UC 

I ___ _____ 

I ■ LL=INT(A-I } 

I IE (J.NE.LU 

— fi-^Ynn — 

I Yl JJ^VULl 

I Y(LL)=n 

I EMU IE 
lEUfi no EG£ 


UNNDRPALIZFO EIGENVECTOR OF ORIGINAL MATRIX OBTAINED 


B=0.0 


IJJD EDS 1 = 1, N 

1 ■ IE (■■ABStETiLT; AD'^lYnTT) 

j D®Ytn 

1 EiJD IE 
!£UD DD £IIB 


SOB I=1tN 
1 Y(n=Y{r>/B 
lENQ QD ££B 


PROGRAM RVEC 


structured sfgrtpan prcgrah 


INPUT OUTPUT NEST 

LINE LINE LEVEL 


OUTPUT SFDBTRAN STATEMENT 


i NO RMALIZED El GENVECJLQP^OBTA INED 

1 PUT Vni (REAL EIGENVECTOR} IN EIGVECT CNUHOFEVt 1) 

!na £CE I'ltN 
1 EIGVECtNUM, n=Y(I) 

\mU JID EDB . 

i_ - 


RETURN 


£NO PROGRAM UNIT ******++*+'*+'**^****++**tK 



ir ’ 


CFG, INC. 


PROGRAM 


LIKE 

NUMBER 


OJ.s55:21 14 FEB 75 

FORTRAN PROGRAM INPUT 

INPUT FORTRAN STATEMENT 


PAGE Z1 






o 


IMT,Cli AHUtSMA L L,N,NUKtEIGVEC,HVECTlNTER t 


C REF; UCLA DEMO IA.5 

S J0ROUT IN E IMV EC L A.KH AX, 

lYtZiB] 

DIMENSION AINHAX,NMAXlTlNTEflt n,Yl 11 ,211) , INTI 11 ,BINHAXtNHAXl 
lEIGVECtNKAXtKFAXl 


» - 


39 

40 

41 

42 

43 

44 
^ 45 " 

46 

47 

48 

49 

50 

51 

52 




31 

7 G=An,t-lT 

V 


32 

A{I,I-11=- 



33 

BII,1-U=-| 



34 • 

0C8 K*I,N 



35 

A[I,K)=A(I 



36 

B B(1,K) = B( 



37 

2 CCKTINUE 



38 

C TRIANGULAR 




6 

0050 1=1,N 





7 

0050 J=1,N 





8 

50 Bll,Jl=0.0' 





9 

DOl 1 = 1, N 





10 

AM,Il=An,Tl-Cl 





n 

1 B l I,U=BtI ,I)-AHU 





12 

00 2 1=2, N 





13 

C=Al I>-1, 1-L 1*A ( I-l, 1-1 )+B|I-1,I-1)*B( 1-1,1-11 





14 

D=AII,I-U+AU ,r-l)+B(I,I-l)’»'BU »I-11 





15 

IF (C.GE.D) GO TO 4 





16 

3 INTErtll 1=1 





17 

G=C 





18 

c=o 





19 

D=G 





20 

J = I-1 





21 

005 K=U,N 





22 

G“AII-1,K1 





23 

A{I-itkl=A(I,Kl 





24 

Al I,K1=G 





25 

6=B( I-1,K1 





26 

BlI-L»KI=Btl,K) 





27 

5 B(I,K1"G 





28 

GO TO 6 





29 

4 INTER It 1*1-1 





30 

6 TF ID.EQ.0.1 GO TO 2 






MATRIX FCRPED 


D09 1=1, N 

^ c=Ati, u*Aii,n+8(i,n*Bn,n 

IF IC.EE.SMALL) GO TC 9 
411,11" SQRTISHAUL) 

fHi,n-o.o 

9 C ONTINUE 

00 ILll 1 = 1 , N 
YUl^l^O 

nil ziu=o.o 

DO 8088 JJJ=1,4 
C*AIN,Nl*AtN,Nl+BlN,N)*BIN,Nl 

G=YIN1 

YrKi = IG*AtN,N)+-ZtN|4ElN,NT 1/C 
Z(N1 = UIN1*A(N,N1-C''^BIN,N 1 |/C 


M 


VI 1ft 


F 


/ 


CFGi INC. 

* ' ! 

PROGRAM 

IMVEC 

LINE 

NUHEEB 

53 

54 : 

0017 I»ZtN 
E*0.0 


55 

F-D.O ■ 


56 

H^Ni-l-I 


57 

0018 J=2»I 


53 

L=N+J-i 


59 

E=E+Y(U*A 


01:55:21 14 FEE 75 

FORTRAN PROGRAM YnPOT 


PAGE 22 


INPUT FORTRAN STATEMENT 


60 

' 41 - 

42 

63 

64 

65 

66 

67 

68 


16 F^F^-YtL l*a tH>LH-2a l*AtH'iL l 


17 


D*A(H,MJ+A[H,M)+B tP 
G=V(H] 

Y(HJ=[ (G-EJ*A[M,H)+(Z(HI-FJ*B(H,Hn/D 
ZtH)^nZIM)-FJ+A(HfP)‘’(G**EJ*B(P,H)VD 
E=0-0 

0051 I*XtN 

F = Y ( 1 1 *Y ( I y+ zTi j * z rn 

IF lE.GE.FJ GO TO 51 


H 


69 

70 

71 

72 

52 E=F 
L=^I 

51 CONTINUE 
Al*Y(LI 



73 

A2-Z1U 



. ■ 74 

0014 I»1tN 



75 

G=Y(I) 



76 

vt i)“(G^Ai+zMy*A2yyE 


77 

78 

‘ 79 ' 

eo 
ei 
82 
83 
_Q4 
£5 ' 
86 
B7- 
BB 

89 

90 

~9l“ 

92 

93 

94 

95 

96 
9 7 
9B 
99 

IDO 

IQI 

iOZ 

Ta3 

104 


14 


30 


16 


30 

15 

8683 

:6666 


20 


19 


Z (1 } - 1 z ( 1) *A1-G* A 2 > /E" ”■ 
fFtJJJ,EQ,4J GO TC 6666 
‘0015 I=*2tN 

IF 1 INtERdl ,NE«I ) GO TO 
G-Y( I) 

Yin=Y(I-l) 

YII“1»=G 
G=Z( I) 

ztn^ztT-U 

zir-u=G 

Y { u =Y n 1 + A 1 1 1 i-i r+ Yt 1 1 " B [ I * I- 1 1 * 7 . U“ 1 y 
Z( I)=zm + B{T,I-*1I+Yl I-D+AIIi I“l)*za-ll 
CONTINUE 

EIGENVECTOR OF HESSENBURG MATRIX OBTAINED 
H=N-T' 

0021 I»2tM 

j=N+L-i ■ ■ ■ : 

L=J+l 

0020 K«Lf=N' ■■ " ■ 

YIK] *Y[Ky-Ytjy*AtKiJ~U+Zl Jl^BlKiJ-l ? 

‘Z I K] *lfK)-Z { Jl ^"A f K 1 j-lJ"-Y rjy^BlK t J-D 
LL-INTIN-I y 

IF iJ.EB.LLy GO' TO 'Zr " 

G^YlJl 

Y(J)*YTLLy 

V(LL)^G 

“G*z(ji ; " * ■ ' '■ ■■ 

ZU)*Z(LLy 


... 5 


PROGRAM IHVEC 01;55:2X lA FEB 75 PAGE 

FORTRAN PROGRAH INPUT 

LINE " r -r — - : - - 

NUMBER INPUT FORTRAN STATEMENT 


1C5 ZILU)=G 

106 2 1 CCNT INUE_ 

1C7 C : UNNORMALIZED EIGENVECTOR OeTAINED 

100 E=0-0 

109 0022 1^1, N 

110 F=Ym’»Y(I!+Ztn’<'ZMl 

111 IF IE.GE*F1 GO TO 22 

IIZ 23 E=F ' . : ■ ' - 

113 ' L=i . . ^ ^ 

114 22 CONTINUE 

115 A1»Y1L1 

116 A2=Z(LI 

117 0024 I-eljN 

IIB G=Y(1). . 

119 “■ Y( n = { G+Al+Ztl 1*A2)'/E 

120 24 Z( Il=IZm*Al-G+A2)/E 

121 G NORMALIZED EIGENVECTOR OBTAINED 

122 C PUT YU) (REAL PART) IN E IGVECTiNUMOFEVU ) 

123 DO 100 I , N 

12^ 100 EIGVEC{NUHtn=YU)_ __ , ■ 

125 NUM^NUH+l 

126 C PUT Zm (CCHPLEX PART) IN EIGVECTiKUKOFEVrl) 

127 00 101 1=1, N 

120 101 EIGVEC(NUH,I)*ZU} 

129 RETURN 

130 END 


KpUHllf 


CFG, INC, 


PROGRAM IMVEC 


□i:55i2l 14 FEB 75 

structured 5FORTRAN PRCGRAM 


PAGE 24 




INPUT UUTPUT NEST 

LINE LINE LEVEL 


OUTPUT SFCRTRAN STATEMENT 

♦*ifc:(?i4i*******))c)j<*+*** !»**+* IMVEC ENTRY i************+**+4+>tnk4+ 


REF: UCLA DEMO 14.5 

SUBROUTINE IHVEC t A , NHAXt TNT,C 1 ,APU ,SHAL L , N , NUP j E IGVEC , NVEC , INTER i 
1 Y,Z,E) 

DIMENSION AINMAX, UMAX J ilNTER Ul lYtll » Z ll ) , INT ( L } ,B (NMAX,NMAXI , 
1 EIGVEC (NHAXfNHAX) 


__ 9 _ 

10 

11 


9 

10 

11 


12 


_y 

1 4 

15 

16 


LOGIC START **** + **»>' + ****+it' ++****=(t**+** 


IM £QB r = ltN 


t. I 


\m fDB J=lrN 
I an,j)=c.o 
liyil ID £DB 


I I. 


‘i£DD QD EDfi” 





A<I,IJ=A{1,1)-C1 
1 aii,n=B{i,n-AHu 
liDD DD flE 





12 

17 

IDD £DB 1 

=2,N 



13 

18 

1 ■ 

C=AU-1,!-11+MI-1,1-1)+0II-1,I“11*B(1-1,1-1J 



14 

19 

■ . 1 . 

0>=At 1,1-1 ))♦ A (1,1-1 J+B IT, 1-11 1 1,1- 11 



15 

20 

■ 1 

IE (C.LT.Dl 

1 ■ 


16 

21 

2 


INTER! T J=I 

1 


17 

22 

2 


G=C 



IB 

23 

■ ■ 2 

. 

C=D 



19 

24 

2 


C=G 



20 

2 5 

2' ■ : 


J=l-1 

■}- — 





J 

II 


21 

26 

2 

' ■ 1 

ID £DB K-J,N 

1 1 


22 

27 

- 3 

1 

G=A(I-T,K 1 

1 1 


23 

2 0 

3 ■: 


An-1,K) = A(T,K) 

11 


24 

2R 

3 

■ 

A [ I ,K1=G 

M ..... 


25 

. 3 0 

:■ 3 


G=E(I-1,K1 

1 1 


26 

31 

3 


fHT-l,Kl=niI,Kj 


(JO 

27 

32 

■ ■ ' 3 ' 

. ■ 

B(1 ,K1=G 

] ! 

"X. 


33 

2 


ian DE fQB 

, . .... _ . 11... 



4'7 C 1 TRIANGULAR MATRIX FORMED 

39' 40 ; ■ |J3D £Ilfi T»1 tN 

40 49 1 I c»AUTU»Anin+BUtn*BntH 

"41"— ~ 50- ■ -j— — r"““lF T(T,IT73HA1T) ^ — ^ 

42 ill 2 1 AUiU- SCRTISHALL) 

43 52 2 ■ j , BUiIJhC.O 

53 1 I £t)I3 J£ 

54 ^ ^ HQ £DB 







PROGRAH IHVEC 


INPUT 

LINE 


OUTPUT 

LINE 


NEST 

LEVEL 


STRUCTURED SFDRTBAN PRCGRAK 


OUTPUT SFORTR AN STATEMENT 


1 Z{1-11=G 

I JiND If 

■ i~“Yt I ) =Y 1 1 i+A [T vi-1 ) ( r-n -a ri7r^i 

1 ZiU=2{ T]+Btl I 1-11 *Y( I-l} + AtI,I-l)*ZlI-l) 

im DU £DB 


U^D DD £D£ 


’‘rnfl HiB i*2»H 

t J=N+1-I 

I L=U+1 


EIGENVECTOR OF HESSENBURG HATRIii OBTAINED 


1DD£DBK*L,K 

I Y IKJ =Y (kl-V t j )*XCKVJ-11+Z( J) *B (KiJ“i ) 
! 2tK1 = Z[K)-ZU)+A(KtJ-l}-YtJ)*B(K,J-l) 
l£ND DD J£QB 


LL=INT«N-TJ 
— lETJ^NE.XLl^ 
G=YIJ) 
YtJ)=YtlU 
Y(LL1=G 
G=ZtJl 
Z(J1=Z(LU 
^ ■ ZtLLI=G 

£tIQ IE 
END DQ EDE 


UNNORHALIZED EIGENVECTOR OBTAINED 




iDD EQB I^liN 
I ,F»Ym*Yi n4 Zii)*zm 

I IE IE,LT. F) 

] 

1 L»I 

I EtID i£ 

iEND DD EEE 


‘Ar-y ( LT 

AZ>*ZIL J 


PROGPAH IHVEC 


STRUCTURED S FORTRAN PPCGRAH 


IKPUT OUTPUT NEST 

LINE LINE LEVEL 


OUTPUT SFORTPAH STATEMENT 


IIIC £DE T'ltN 
i G=YtI) 

I Y( I )»tG*Al-f2m+AZl/E 

1 Z( n={ZtI J*A1-G+A2)/E 

l££in HQ £flE 


I NORMALIZED EIGENVECTOR OBTAINED 

] PUT Ytn IREAL PART) TN EIGV ECT( NUMOFEVi 1 i 

ID5 £QB __ . . . 

"1 EIGVECIKURtD^Yrn 

DQ . . 

NUH^NUH+X 

! PUT Zm (COMPLEX PART) IN EIGVECTtNUHDFEV, II 

iGfl EDS. IHtM 
I ElGVEClNUHt n=ZII J 

\Em DQ £i)B 


return .. . V 

£^0 PROGRAM UN I T Y***#***’l=*++i'***+***’t‘+* 


SUbW-JUTIMH INT?:HP(X, Y, NHTS, NUiRMii, XIN, YOU'D ,#0 
UUuBLb PifhCISiON OiiLTAX, UbLTA, A, PROD, SUM #1 


UlMbNSlO;,' Xn), Y(U M2 

UiMfcNSiOM Di:LTA(.10) , A(I6)) .#3 

M4 

SEARCH i-OH APPROPRIATH VALUE OF X£,U .#5 
C #6 

n DO K9. 1 = 1 , NPTS .#7 

IF (XIN - X£D) 13, 17, 19 MB 

13 11 = 1- rJTHRMS/2 #9 

\ IF XI U l b, -15, 21 #1C9 

15 It = 1 .#11 

GO TO 21 #12 

% 17 YOUT = YCI) .#-13 

1 5 GO TO 6-1 .#.14 

19 CONTINUE .#.15 

I I -= NPTS - NTERMS +1 .#16 

21 12 -= 11 NTERMS - I #18 

, IF CNPTS - 12) 23, 31, 3.1 .#19 

1 23 12 •= NPTS .#20 

II 12 - NTHRMS -+ i #21 

25 IF .(II) 2o, 26, 3.1 #22 

^ 26 M •= I #23 

27 NTEkMS = 12 - n J #24 

C #25 

C ‘ EVALUATE deviations DELTA #26 

C #27 

31 DEN-UM - X-dl + l.) - Xa.l.) #28 

5 DELTAX = (XIN - XdlJ.) / DENOM #29 

DO 35 I=l , NTERMS #30 

IX II ^ 1 - 1 .#3.1 

> DELTA (L) = (XCIX) - XCIl)) / DENOM #32 

3b CONTINUE #32d 

C * #33 

C ACCUMULATE CDEFFICIiNTS. A #34 

C #35 

40 Ad ) = ynu #36 

> 41 DO 50 K=2, NTERMS .#37 

PROD •= .1 . .#38 

SUM =0. #39 

> IMAX •= K - .1 #40 

I XMAX •= I i * IMAX ■ #41 

DO 49 1=1, IMAX #42 

> J - K - J #43 

PROD = .PROD '★ (DELTA.(X.) - DELTA-(J).) #44 

-49 SUM -= SUM A(J.)/PRUD .#45 

A AUO = 8UM + Y.( IXMAX.)yP«OD #46 

^ 50 CONTINUE #47 

C .#48 

I C ACCUMULATE SUM OF EXPANSION .#49 

C #50 

b'l SUM = Ad.) #5.1 

DO 5/ J=2, NTERMS #52 

PROD = I, .#53 

IMAX •= J - 1 #54 

> DO 56 1 = 1 , IMAX #55 

56 PROD -= PROD ★ (DELTAX - DELTA! I ) ) #56 

57 SUM = SUM> A(J)*PROD #5.7 

> o0 YOUT - SUM ^ 

01 RETURN #59 

■ ■ END ... . . #60- 


OJ^ 




TCSTCA'iiH OiJti^ut fWit til IS) UUTERP . OUT)) 

Prcr:r file: l(i 15 ) (]I!T|rl? 
Ar.rtliji t "f. cC'Lii'.i-rui-. file; ill 15 ) til.'i'EKP 


r^.)i 

alF) ) 


cicttc— 


A:-:ALYsiS 




Global Cor.'.uancisr 


r.AXPATnS 303;- 
i1AXL5K'GTH 2C3; 

CEFA'JLT LuC? AXY CGII3!5T^i!T(l-13) ; 
DEFAULT gELECT AXV CuXSISTiUT; 
PATH; PREDICATES; 


AMALYSIS GF EECTIC:- OF CODE THAT DETERMINES XI. 
CHECK FuR NPTS---1 CASE. 


Cc^<^^ C u Q Cl C' * 


OUTPUT 11, NTERnS; 
SELECT ALL; 

7 A 3 SIG;'] i',f^ Jb=l; 

23 HALT; 


Case 1.1 


1 


PATH: 2-12 13-24 



1 

i 

'■] 

PREOi CATES; 

subroutine’ I inERPiX. Y, NPTS, NTERHS, KIN, YOUT) ■ 


■ J 
1 

; 1 ' 6 

, * 1 


:7 S 

XIM - X(l) .LT. 8 


:}■ 

:S 10 

1 - iUTEF.nS/ 2 ) .LE. B ■ 



:13 IS 

1 - (d + NTEFiriSJ - 1 ) .LT. 0 


■j 

:15 22 

1 + 1 - NTERi*i 3 .LE. B 


T 

□UTPUT: 


■ ^ 

j 

.2 

-X 

Final Va 1 ues 




:13 2 S 

11-1 
N TERMS = 1 

■; i , 

..i : 

1 





I 

I 

I 


PREDICATES: 

:1 3 

SLCAGUi:;-.!i iNTEPPlX, Y, fJPTS. 

:7 3 

YAH - >;(i) .LT; a 

:9 13 

1 - fnTuRi:5/2) .LE. 2 

:13 ly 

1 - ((1 + iiTERnS) - 1) ,LT, a 

:1G 22 

1 + 1 - NTERnS .GT. 8 

QUTPUT: 

:1 3 

SUBRCUTIKE INTERP(K, Y, MPTS, 

Final Val lias 

:iS 28 

li - 1 + 1 - liTERMS 
TJTERnS = MTERIIS 


^ H Case 1.3 — — - — — 

I J PATH: a-12 i£i-*19 

i PREDICATES: 

i ^ 

f :S 13 

: ^ :13 19 


QUTPUT; 

:1 0 


Final VniuGs 
2S 


. 1 *5 

• X w 


SUSRGUTHiE IHTERPtX, Y, NPTS. MTERHS, XIN, YOUT) 
KIH - X(ii .LT. a 
1 - (HTERI'l/2) .LE. 3 
1 - (Q + fvTFERnS) - 1) .GE. 3 


SUSRQUTIUE IHTERPtX, Y, NPTS, NTERHS, KUi. YOUT) 
II - 1 

NTEPnS = MTERnS 


0 

J 


Ca£6 l.A — — — — — i 

PATH: 3-13 13-24 

PREDICATES: 

12 
7 S 
9 13 
11 19 
14 22 

OUTPUT: 

Final Values 
:1S 2S 

Case l.S 


SUBsDUTIKE -NTERPIX, Y, NPTS, NTERr.S, XIM. YGUT) 
Xii'i - Xii) .LT. 0 
1 - {MTLRriS/2} .GT, 3 

1 - U1 - {i:TERnS/2) + NTERI1S) - 1) .LT. B 
1 + 1 KTERnS .LE. 0 


II - 1 
iNTEPilS - 1 


k.il iJ. t £ .^i4^?CAib>3 1 •! 




PATH; 8-13 18-22 


* 

PREDICATES; 



;1 C 

SU3R3UTU.T: UUERPIX, Y, MPTS. NTERilS, KIN. 

YOUT) 

;7 3 

Ki:i - >:{i) .LT. E 


:3 13 

1 - {!!TERf'3/21 .GT. 0 


:li IS- 

1 - 1(1 - ciTERriE/o) + imRris) - i) .lt, e 


:14 22 

1 + 1 - HTEHIiS .GT. 0 


OUTPUT; 

si 3 

SUORuUTiME U!TERP(X. Y, NPTS. NTERiiS, XIH, 

YOUT) 


Final Values 

:14 2S 11*1+1- MTERHS 

MTEFtllS - NTHRilS 


Case l.S 


PATHt 3-lS iS-19 


PREDICAIESi 
X S 
7 t 
9 i(3 
11 IS 


SUBRCJTIKE liJTERPIX, Y, f^PTS. NTERnS. XIN, YOUT) 
xiN - XU) .LT, a 
1 - tMT£Rf',£/2) ,GT. Z 

1 - ((1 - C:TO1S/2) + NTERtlS) - 1) .GE. 8 


OUTPUT; 


si 3 


SUEROUTIllE H'iTERPCX. Y, NFTS, NTERI1S, XU!. YOUT) 


Final Values 
sll 22 


II = 1 - (IitERnS/2) 
NTcRnS • HTEFinS 


Case 1.7 — - 


PATH; 3-2 13-14 S9 
PREDICATES: 

*1 3 SUGR3UTINE INTERPCX. Y, NPTS. NTEFinS. XiM. YOUT) 

i7 8 XIM - XCl) .EQ. 8 

OUTPUT: 

si 0 SUchOUTINE lUTERPIX. Y, WPTS, NTEHiiS, XiM. YOUT) 

S3 KOTE: Reference to unitializecl variable II 

Final Values 

:ie S3 M - II 

NTtRflS = NTiRflS 












Case 1.8 


41 



rr Ji- 









PATH: U-£ iC 7 1C-2A 


PPSDICATCS; 

;1 S 
:7 Z 
:13 12 
:iS 22 

CUTPUT : 

P 1 1*10 I V^i i oo s 
:13 23 


SijiinCUTiuiE i:rr2Rp(x. y. ;;pts, hteri-is, kin, yout) 

x:f! - Kiif .GT. B 

1 - (<1 + 1 - NTERHS T NTEF;r,3) IJ .LT. 3 
.1 + 1 - liTEi'.I'S .LE< 0 


II - 1 
NTERNS = 1 


Case 1.3 


PATH: 2-3 :5 7 16-22 


PREDICATES: 

1 6 
7 S 
12 13 
16 22 

OUTPUT: 

:1 a 

Final Values 
;1B 23 


suERoynr:i interp(x. y. npts, nterhs, xih. yout) 

KIM - K(i) .GT. 0 

1 - ({1 + i - MTERnS + NTERMS) - 1) .LT. 3 
1 + 1 - MTERhS .GT. a 


SUeRGUTIMe iNTiRP(X, Y, MPTS, NTERilS, XiM, VOUTi 


II » 1 + 1 - NTERNS 
NTERnS - MTERnS 


Case 1.13 


PATH; 3-3 15 7 16-13 
PREDICATES: 


1 3 
7 3 
13 12 


OUTPUT: 

;i e 

Final Values 
:13 23 


SUBROUTINE iNTERPCX, Y, NPTS, NTERilS, XIN, YOUT) 
XIN - Xa> .GT./0 

1 - (11 + 1 - NTERnS + NTERNS) - 1) .GE, 0 


SliERQUTINi INTERPIX, Y, NPTS, NTERNS, XIN. YOUT) 


!1 « 1 + 1 - NTERNS 
NTERNS - NTERNS 




Case 2 — 

AS IM CASE 1, CHECK FOR NPTS«2 




51 







Co£.o 

OUTPUT II. riTfrjIo; 
SELECT ALL; 
co:3ISTe;;cy; 

7 ASSIGM KPTS».2; 

2£ HALT; 


Cci&e 2*1 


PATH; C-12 lS-24 
PREDICATES; 

;1 2 SUBROUTINE iNTERP(X, Y, NPTS, MTERI1S, XiN, YOUTi 


:7 

£ 

XIN 

- 

Xtl) .LT. 

0 


: 9 

10 

1 _ 

ir. 

TERNS /2) 

.LE, 

0 

;13 

13 

2 - 

1 1 

1 -f NTERiiS) - 

1) 

; IS 

22 

1 


- NTEPilS 

.LE, 

0 

:1S 


CONSISTENCY: 

OX 




• OUTPUT; 

Final Values 

:U 23 II = 1 

NTERHS = 2 


Case 2.2 


PATH: S-12 13-22 

PREDICATES: 

:1 S SUSROUTINE Ii\tTERP(K, Y. MPTS. NTERMS, XIM, YQUT) 

;7 S Xlli - X(i) .LT. 0 

;3 10 1 - (N7SF.r.S/2I *LE. 0 

:13 19 -2 - til + NTERnS) - 1) .LT. 0 

:10 22 1 + 2 - NTEKnS .GT. 0 

:1S 2S CONSISTENCY; OK 


OUTPUT: 

:i 


SUERGUTINE lUTiRPiX, 


Y, MPTS. UTERflS, XIN. YDUT) 


F i na t Va I ues 
:1S 28 


!1 = 1 + 2 - NTERnS 
N t (£r<i IS = N 1 ERNS 


Ca&e 2.3 


PATH: G-12 13-19 

PREDICATES: 


f 

4 


n 

"i 


F? 


* j 


is 




i 

t 


7“® 

I 

^ \ 
•lA. - 


n 


€ 


! ■ nI 




ii 


r 

& 1 ! 
I Li 


i 


tefcii.. 


Jl 8 


;7 S 
;*D 13 


: 13 IS 
;1 




stiLinauTu.!: itniinPiK, y, npts, nxmm, xin, yout) 

Xlfi - K ( l ) . LT . a 
1 - i ; iTER :; 3 / 3 ) . i . E . a 
3 iil T NTERilS) - 1) .Gc» 9 
C0 : i3I3TEfCy ; GK 


OUTPUT: 

tl 0 


su3nrj'j:i;:£ int£RP{x, y. mpts, nterhs, xim, yout) 


Final Values 


, 1 o 

• X ; Z » <.0 


II - 1 

NTERllS - imms 


CSS6 3t — 


PATH; 3-10 13-24 


FREQ i CATES: 

. 1 n 

m ^ W 

:7 3 

:3 10 

:11 13 
:14 2.2 

7C > 


: 1S 23 


SUSR0UTii;2 IKTFRPtX, Y, NPT3, NTERMS. XIM, YQUT) 
Xl.U - X(l^ .LT. 8 

1 - (IITERnS/Z) .GT. 3 

2 - ({1 - (!-iTEnriS/2) + NTIRHS) - 1) .LT* B ^ ' 
1 -r 2 - llTEAnS .LE. 3 

CGMSISTEilCYi OiC 


OUTPUT: 


Final Values 
:1S 28 


- 11 = 1 


NTERilS 


« 2 


Case 2.i 


PATH: 2-13 18-22 


PREDICATES: 
:1 3 

:7 8 

:S 13 
:ii 19 
:14 22 


SUCnOJTIUE ir^TERPIX, Y, NPTS, NTERMS, XIM, YOUT) 
XilJ - >;{il .LT. 0 

1 - (;jtERnS/2) *GT. 8 

2 - (ti - fHTiRnS/2i + NTIRflS) - 1) AT. 8 
I -r 2 - NTERnS .GT. 0 


OUTPUT: 

:1 2 


:14 28 CCNSISTiNGY: GK 

SU2RDUTIKE IKTERPIX, Y, MPTS, NTERHS. XIM. YOUT) 


Final Values 
:14 28 


11^1+2- NTERriS 
f \ TERi ' i3 - NiinflS 


Case 2.8 


71 




PATH; lS-19 

PREDICATES; 

:1 C 
:7 S 
:S la 
ill IS 


S'JBRCurn:E interp(x. y, npts. hterhS, kin, yuuT) 
x::i - .u. 0 

1 - CriKCS/?) .GT. 0 

. 2 - (ii - {;jTERmS/2) + NTERMS) - 1) .GE. 8 


:ii 2£ co:-:sigte:;cy; o:< 

DUTPUT; 

•12 EU3RGLJTIi;i INTER?(K, Y, HPTS, NTERi'iS, XIN, YOU?) 


Final Vcilu<?i5 
:11 2S 


11=1- (NTERnS/2) 
NTErinS = NTERmS 


PATH; 2 

-S 13- 

14 53 





PREDICATi 

ES; 



- 



:1 

3 

SU3RCUT:M IHTERPtX. 

Y. MPTS, 

MTeRMS, 

Xlil, 

YOUT) 

;7 

3 

XIM - X(i} .EQ. 0 





;13 

ca 

CONSISTENCY: DK 





OUTPUT: 







: 1 

Z 

EUSROUTIKS INTERP(X, 

Y, NPTS, 

NTERHS. 

XIN, 

YOUT) 

IS 


Reference ;o unitialised 

var i ab 1 e 

11 



Final ' 

«'a 1 ues 






:ia 

S3 

11 = 11 

NTERilS ^ NTERMS 





Cass 2«3 








PATH: 0-S IE 7-12 18-24 

PRiDICATES; 


il S 
7 S 
;11 S 
13 10 
17 IS 
23 22 


EUBROUTii:! IliTERPCX, Y. NPTS, NTERmS. KIN, YOUT) 
XiN - KQ3 ,GT. 0 
KIN - X(2) .IT. 3 
2 - (NTEFNg/2) ,LE. 3 
2 - (d + KJEPm - 1) .LT, 3 
1 + 2 - NTIPnS .LE. 0 
CONSiSTENGY: OK 


OUTPUT; 

Final '.'a lues 


m\ 






i tai.-BWTff ■ i i 'Ti' * v <iBf . «!»wi«i a tta ! « .3> J ~ .aaiwlti; 








W >4UJ m .ssrv ^ fSs Sf^33S^ iV£fP^. iSSWiS9''SStWe^^ 




Go&e 2.9 


PATH: 2-i: iS 7-12 lS-22 


PREDICATES): 
;i C 
;7 £ 
:li S 
:12 13 
;17 19 

. 03 ?? 


naEi ' Pix , Y. m%, HTERiiii . xin , voun 
xi[-i - x(n .GT. a 


Cl :' iri "' •’' ’ ■■ 


XIR - Xil! ,LT. 3 
2 - {:JTERRS/2) .LE. 0 
2 - ((1 V ;;tir:t 3) - i) .lt. s 
: T 2 - MTERR3 ,GT. 8 
:23 23 COMSISTcXCY; OK 


OUTPUT: 

:1 8 


SUCPOUTIRE iNTERPtX. Y, NPTS. MTERflS, XIM, YGUT) 


Final Values 
:23 2S 


11 = 1^2- NTERI1S 
NHP 1 I 3 - NTERRS 


Case 2.13 


PATH: 

n 

a " 

£ 15 7-12 

13-19 


PREDIC 

;ati 

c • 
* 




1 

0 

SUiPGUTIME liJTEPPIX, Y, 

NPTS. ilTIRIlS. XIM, 


7 

s 

XIM - Xd) .GT. e 



ii 

8 

■ KIM - X(2) .LT. a 



ii 

12 

2 - (I':TERRS/2) -LE. 8 



17 

19 

2 - id + LTlRnS) - 1) 

• GE. 3 


17 

23 CGiJS] 

[S7EUCY: OiC 


OUTPUT: 





:1 

2 

SUERGUTIMI IMTEnPtX. Y, 

MPTS, MTiRnS, XIM, 


YOUT) 


YOUT) 


Final Values 

:17 28 II - 1 

.\’TERI'.S = NTERIIS 


OEIGMAL PAGE IS 
OF POOR QUAura 


Case 2,11 — - 

PATH: 2-£ 15 7-12 13-24 

PREDICATES: 


1 

2 

e: 1 

ORGJTIME IMTERPCX, Y. MPTS. NTpilS, XIM. 

7 

S 

XiM - Xdl .GT, 

0 

11 

Pi 

0 

XI 

M - Xi2) .LT. 

3 

13 

IS 

2 

- (HTERMS/Ej 

.GT. 0 

IE 

19 

2 

- i(2 - {MTER 

nS/2) + NTERflS) - 1) .LT. 0 

A fk 

X w 


1 

+ 2 - M TERMS 

.LE.-3 

23 

cLd 

COMSISTE 

:mcv; GK 



YOUT) 


i 

I 


3 


■5 

fii 

a 

■i 





OUTPUT: 


Final Vatuc-c. 

^ nr* 


i 1 - i 
MTl£F:nS - 2 


PATH: 

ry 
w “ 

•3 15 

7-10 13- 

22 




PREOIC 

A i E 

:S: 







1 

2 

' SU 


J 1 ; 

ivE 

IMTi 


1 

O 

u 

XI 

M - 

x(i) 

.GT 


11 

8 

V / f 

A* 

I'l - 

X{ 

2) 

.IT 


12 

18 

2 

- { 

ITE 

Ri:s 

/2) 


15 

IS 

n 

- ( 

(2 

- { 

*.TE 


1 Cj 

22 

1 

+ 2 

- 

I'JTE 

F.f'iS 


12 

n 

GGRSI5TE 

ilGY 

1 

o:< 



OUTPUT: 

:1 0 


SU-TOUTiME iWTERPOl, Y» MPTS, MTEF;;‘iS. XIM. Y0UT) 


Final Values 
:iS 28 


1 1 = -1 -f 2 - NTERHS 
NTERfIS = NTEPnS- 


Casa 2.1^ — — — 

. 


PATH: 

U — O i.3 

7-19 18-19 


PPfOICAtFS; 



1 

1 s 

SUEROUTIIIE INTERPtX, Y, riPTS. HTERilS, XIN, 

YOUT) 

' 

7 S 

Ki:^ - :<(i) ,GT. 0 



11 S 

XllNi - a(2) .LT. 8 



13 10 

2 - iMTEKrS/2) .GT. 9 


‘ 

IS 19 

2 - u2 - (;:TERnS/2) + NTERnS) - 1) '.Gc. 8 



15 23 

CCMSISTEiiCY: CK 


OUTPUT: 




:1 S 

lUBPGUTIf^l IRtSRPCX. Y, HPTS, MTEPiiS, XIM. 

YOUT) 

Final Values 



:15 28 

11 - 2 - (:MTiRriS/2) 



MTEP.nS = i'lTEPnS 


Case 2.14 — — 

PATH: C-S 15 7-3 12-14 5S 


''iy'.’iT. ICIrl * Mtifit,' 




PREDICATES: 


101 



PREDICATlS: 


. ^ 

ft A 

r» 

surrout:::! iNTcnpix. y. npts, nicchc. 

:7 

Ci 

>ail - Kd) .GT. 3 

;11 

0 

iif 

KIN - X(2i .GT, 8 

;17 

19 

2 - (il -r 2 - llTERnS + NTERNS) - 1) . 

:17 

23 

CONSISTENCY: CK 

OUTPUT: 


sucr3UT;;:e liTfcnptx, y, mpts, mterhs, 

:1 

o 

w 

F i oa 1 

Vatu 

OS 

:17 

23 

11 1 + 2 - NTERHS 


IJTErinS = NTSRnS 


xirj. YOUT) 


GE. 8 

Xiri, Youn 


Case 2 = =» - =:.=.== = = = «=.==a =^=*« =» = =*=:« ==»=*«»»« 

AS IN GASi 1. CHICK FQR HPTS=2. 

Cciso CcTitKi^sricis s 

OUTPUT II, NTIRnS; 

SSLiCT ALL.; 

CONSISTENCY: 

7 ASSIGN NPTS^S; 

23 HALT; 


Case 3.1 


PATH; 0-12 1S-2A 


PREDICATES; 


:i 

0 

SLCROUTINE INTERPtX, Y, MPTS. 

:7 

3 

XIH - Xti) .LT. 0 

:3 

13 

1 - {NTERCS/O} .LE. 3 

: 13 

19 

3 ^ {(i + NTERnS) - I) AT. 3 

I IS 

22 

1 T 2 - MTlSrS .LE. 3 

:1S 

2S 

CONSISTENCY; QIC 

OUTPUT: 

Final 

/a 1 u 


:1S 

23 

U = 1 
NTiRNS 3 



A IN, 


YOUTI 


Cass 3.2 








I 


[ y 


^ as 


0 

ID 

i 

iD 







PnCDIGATiZG: 



:1 

2 

SUbflCUT I Ki: ! ; JTGFiP 0( 

1 

;7 

3 

XIN - XUi .GT. 0 

• 

;11 

S 

XI M - XC) .IT. 3 


;13 

13 

2 - t:iTEF.n£/2) .GT. 

1 

;1S 

13 

3 - tl2 - (NT£R:;S/2 


OUTPUT; 

d 


;1S as CCriSlSTENCY: OK 

SULRCJTi:\a IMTERPtK. Y, MPTS, UTERMS, XIM. YCUT) 


Fine I Values 
:15 2S 


11=2- iiaERnS/2j 
NTEPnS •* f^TEhiiS 


Case 3.14 


PATH; e-S 15 

7-3 13-14 53 


PREOi CATES: 

:1 a 

SUBROUTINE 

INTERPIX, Y, NPTS, 

:7 S 

XIM - Xd) 

.GT. 8 

;11 S 

X!M - X(2) 

.EQ. 0 

tl4 59 

COi-iSISTEUCY; OK 

• 

OUTPUT: 

:1 S 

SUEROUTiME 

INTERPIX, Y, NPTS, 


53 


KOTEj Referencvr to unitialized variable II 


Final Values 
;1A 59 


II - 11 

MTERHS ^ NTERflS 


Case 3,15 — — — — 

PATH: S-S Is 7-S 15 7-12 lS-24 




D 

D 

D 

0 


I e 

7 S 

II 3 
15 8 
17 10 
21 13 
2A 22 
2S 23 


SUBROUTINE IMT5RP(X, Y, MPTS, NTERHS, XUJ, YGUt) 
XiM - X(l) .GT. 0 
XIII - X(21 .GT. a 
XI N - X(2i .LT. 3 
3 - (NTHRilS/2) .LE. 3 
3 - ((1 + NTERnS) - 1) .LT. 0 
1 + 3 - MTERMS .LE. 0 
COMSISTEKCYi GK 


OUTPUT; 


Final Values 
!2S 2S 


II > 1 
MTERnS 


171 








3* lb 


PATH: 3-2 15 7-S 15 7-12 12-22 


PREDICATES; 

0 

subrcut:i;e interpcx. 

:7 

3 

XIH - X{1) .GT. 8 

ill 

3 

XIN - X(2) .GT. 8 

:15 

2 

XIN - X(3} .LT. 0 

:17 

le 

3 - (;:iERilS/2) .LE. 

:21 

19 

3 - (d ^ liTERflS) - 

:24 


i T 3 - NTERnS .GT. 

;2A 

23 CDMi 

dISTEMCY: ok 

OUTPUT: 

:1 

3 

SU2RCUTU€ INTERPlX, 


Final Votuas 
;24 2S 


II - 1 + 3 - MTFPnS 
NTERilS • t'iTEP.nS 


Case 3.17 — ----- — — --- 

PATH; 3-S 15 7-S 15 7-12 IS-IS 


PREDICATES; 

;1 ^ 

SUERCUTiNE INTERP(X, Y, 

;7 S 

XIU - >:{i) .GT. 0 

ill S 

XU; - X(2) .GT. 0 

;iS 3 

XIN - X(3) .LT. 0 

:17 13 

3 - (nter;i5/2) .le. 0 

;21 IS 

3 - Ui + NTERnS).- 1) 

;21 23 C0NSI3TEMCV: OK 

OUTPUT: 

;1 8 

SUBROUTINE INTERPIX. Y, 

Final Values 

:21 23 

11=1 

Case 2.13 — 

NTERnS = NTERriS 

PATH; S-S 15 7-2 

15 7-18 18-24 

PRiDI CATES; 

;i e 

SUEROUri::! INTERPTX. Y 

:7 S 

XU: - X(l) .GT. 0 

ill £ 

X!N - X12) .GT. 0 

:15 8 

XIN - X{3) .LT. 8 

:17 13 

3 - lNT£FJ:3/2) .Gt. 0 
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■ .H - ■ a *I»L ^ ^^4***-*- 



;3!n-3ii( J?(i!tKr5S^»!«*!«SS?^t “:■■ S'r” 


sl9 19 3 - t(2 - {NTERnS/2) + NlERnS) - 1) .LT. 0 . 

:22 22 1 <4. 3 - :JTER;'3 .LE. 3 

:24 28 C0hS1STE;CY: CK 

OUTPUT: 


Final Values 

:24 28 II - I 

MTERnS - 2 


Case 3* IS 


PATH: a-S i5 7-S 15 7-12 18-22 


SUEROUTiliE IHTERPCX, Y, MPTS, NTERMS, XIN, YOUT) 
XI:j - Xii) .GT. 0 
XIN - Xi2) .GT. 0 
X!N - X(3) .LT. 0 
3 - (MTERr,S/2} .GT. 0 

3 - i(3 - (NTER;1S/2) + NTERHS) - 1) .LT. 0 
1 + 3 - r^TERHS .GT. 0 
:22 2S CONSiSTEf-.'CY: OK 

OUTPUT: 

si 3 SUiROUTil'E UJtERP(K, Y* NPTS, NTERMS, XIH, YOUT) 

r i na 1 Vat U6S 

:22 23 , !1 = 1 + 3 - NTERHS 

KTERnS = NTERHS 


Case 3.20 --.-i.-— 


PREDICATES: 
;1 0 
:7 8 
:11 3 
:15 8 
:17 12 
:iS 13 
:22 22 


PATH: 0-S 15 7-S 15 7-13 13-19 

PREDICATES: 


:1 

e 

SUDFiOUTiLE IK'TERPCX., Y. NPTS. 

NTERHS, XIN. 

:7 

S 

XIM - K!i) .GT. .8 


:11 

o 

in 

XIM - X(2) .GT. 0 


:15 

8 

XIN - :<{3) .LT. 0 


;17 

18 

3 - (NTERnS/2) .GT. 0 


:13 

13 

3 - i (3 - i;aiRris/ 2 ) 4 - mtepms) 

• 1) *GE. 0 

:13 

23 

CONSISTENCV; OX 


CUTPUT: 

:1 

n 

SoORGUTIl'E INTiRPCX, Y. NPTS., 

NTEF.nS. XIM. 

Final Values 


:13 

28 

n = 5 - (NTERnS/2)- 



NtERnS = NTERflS 





Cctcc 3.21 


PATHi C-S IS 7-3 IS 7-3 13-U 53 


PPEDICATESj 
;1 8 
;7 S 
;11 3 
:1S S 


US 52 CC:JSISTEuCY; CK 


SUbHuUTii.E iiJTERPCX, Y. NPTS, NTERnS, XiN, YOUT) 
Xlf'J - XQ) .GT. 0 
Xiri - X(2) ,GT. 3 
XI:,i - X(3) ,EQ. 0 


OUTPUT: 

:1 8 
59 


SU3F;0UTJk‘c IHTERPfX. Y, NPTS. NTERf^S* XIU. YOUT) 


MOTE: Reference to uni tia Msec! variabla II 


Final Values 
:13 53 


II = II 

MTERMS - WTERnS • 


Case 3.22 


PATH: 8-S 15 7-S 15 7-8 15 7 lS-24 


PREDICATES: 
i 8 
7 S 

11 s 

15 S 
21 19 
24 22 


!2G 28 CCriSISTEIlCY: OK 
OUTPUT: 


SUBROUTIM ir^TERPtX. Y. WPTS. MTERhS, XIN, YOUT) 
XiN - X(l) .GT. 0 
XlfJ - X(2) .GT. 9 
XIN - X(3) .GT. 3 

3 - ((1 + 2 - K'TERMS + NTERHS) - 1) .LT. 0 
1 + 3 - NTER 1 IS .LE. 0 


Final Values 
;2S 28 


II = 1 
NTERnS 


Case 3.23 


ATH: 3-8 15 7-S 15 7-2 IS 7 iS-22 


PREDICATES: 
:1 0 
:7 8 
:li S 
: 15 8 
:21 19 
:24 22 
: 24 23 


SISRCUTIM niTERPtX, Y, NPT3, MTERHS. XIN, YOUT) 
XIN - XU) .GT. a 
KIN - X{2) .GT. 3 
XIN - X(3) .GT. 8 

3 - ((1^3- NTERMS + NTERHS) - 11 .IT. 0 
1 + 3 - NTERNS .GT. S 
CCNSISTENSY: Dl< 




OUTPUT; 

;1 8 

Finsil VgHuos 
;24 2h 


SUsPOUTHiS IUTERP{X» Y» IJPTS. NTERflS, XIM, YOUT) 


II * I T 3 - NTERra 
NTERr^S = NTERMS 


Coco 3.24 — . — 

PATH: C-3 11 7-S iS 7-S 15 7 lG-19 


PREDICATES; 
:1 E 
;7 8 

;11 a 

:15 S 
;21 19 


SUERCUTiuE IMTERPtX; Y, MPTS, MTERi'iS. X!M, YOUT) 
YAU - Xdi .GT. 0 
XU! - X(2) .GT. 0 
Ki:'! - X{3) .GT. 0 

3 - {{1 + 3 - NTERnS + NTiRnS) - II .GE, 0 


OUTPUT; ■ 
il S 


;2i 28 GOMSISTEMCY: OK 

T; 

il S £UGRCUTI!^:E IMTERPiX, Y. MPTS. NTERriS. XIN, YOUT) 


FlnGii Valuee 


;21 2 ( 


Il - 1 -r 5 - HTERHS 
NTEPIIS = NTERdS 


Cass ^ 'SH KS 3 = = = s S-S-S riBS =-S-S ='3'ES$ 5? j;;' 3 3 ie:3 X£3~==S 

AS IN CASE I. CHECK FOR NPTS-4, 

Case Ccr.triiancis: 

OUTPUT II, NTiPnS; 

SEUiGT ALL; 

CONSISTENCY; 

7 ASSIGN NPTS-4; 

28 HALT; 




Case 4.1 — 


PATH: G-12 lS-24 

PREDICATES; 


SUIRuUTINE INTIRPCX, Y, HPTS, NTiRNS, X!N, YOUT) 


;7 S XIM - X(l) .LT. 0 

;S 10 1 - (NTiRnS/2) .LE. 0 - 

1 13 IS 4 - (tl + NTERHS) - 1) ,LT. 0 

:15 22 1 + 4 - NTERdS .LE. 8 

;18 28 GONSISTEMCY: OK 





1 I iS 


OUTPUT: 


Fincil Vcdues 


• ^ ^ ‘?5‘ 

« Xu 


II » 1 
NTERnS » U 


Case 4.2 


PATH: S-12 l£-22 


PR£01 CATES; 
:1 0 
:7 t 
:3 10 

;12 19 
:1G 22 


SUEROUTIUE IMTERPtX, Y, NPT3. HTERMS, XIM, YOUD 

x::j - xd) .lt. g 

1 - <MTEF;nS/2> .LE. 3 
4 - f(l + R'TERiiS} - 1) .LT. 0 
1 + 4 - NTERMS .GT, 3 


;1S 23 COnSiSTEriCY: OK 


OUTPUT; 

:1 0 


SUSnOUTIr^l. IIJTEr;P{X, Y, NPTS. NTiRHS, XIN, YOUT) 


Fmal Vaiues 
:1G 28 


11=1+4- MTERHS 
HTiRnS = NTEPnS 


Case 4.3 


PATH; - 0-12 13-19 


PPEDICATES: 
:1 0 


7 S 
3 10 
13 19 


SUIRCUTIRE iNTiPPCX, Y. NPTS, NTERMS. XIIJ, YOUT) 
XIN - X(l) .LT. 0 
1 - {T'iliPriS/?) .LE. 8 
4 - {(1 + hTEmS) - 1) .GE. 0 


13 28 COMSISTE'^CY; OK 


OUTPUT; 

;1 0 


SUiP.OyTINE IliTEPP(X. Y, MPTS, NTERHS. .Xlil, YOUT) 


Final Values 
;13 28 


11 = 1 

NTERnS = MTERHS 


Case 4.4 


PATH: 0-13 ia-24 


PREDICATES: 
:1 0 


:7 8 


SUuFiGUTIKE INTERPIX. Y, fiPTS, HTERMS, Xi!'!. YOUT) 
XIM - X(i) ,LT. 0 
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a. 








:3 12 1 - iljlSRi'.^/.?) .GT. i) 

ill 19 4 - {(1 - (U'T£RnS/2) -r I'JTERfIS) - 1) .LT. 3 

:14 22 1 + 4 - .UE. 3 

:iS 28 CCMSiSTENCY; GiC 


CUTPUT: 


Finol VgIuC‘£ 

:10 2S II - 1 

NTERnS - 4 


Cqsc! 4 • S 


PATH: 3-10 lS-22 


PREDICATES: 

SUSR-j'JTIliE IMTERPIX. Y, MPTS, NTERhS. XliJ, 

:1 0 

:7 3 

xiN - x(i) ;lt. e 

:3 10 

1 - (MTER'S/E) .GT. 3 

;11 19 

4 - (d - CITERnS/E) + MTERnS) - 1) .LT. 0 

:14 22 

1 + 4 - IITcRnS .GT. 0 

1 14 2S 

COi^SISTEiXY: OK 

OUTPUT; 

S'JERGUTILE INTERPTX, Y, NPTS. NTERI1S, XIN. 

;1 0 

Pinal Values 

;14 2S 

li = 1 + 4 - i\'TERMS 


. MTERriS - NTlRnS 

Case 4.0 — - 


PATH; 0-10 

lS-19 

PREDICATES: 

SU2R0UTINE IMTERPIX, Y, MPTS. NTERHi. XIH. 

tl 2 

;7 £ 

XHJ - X(l) .LT. 0 

:3 10 

1 - aJTERi'i£/2) .GT. 0 

;11 19 

4 - ({1 - (NTERnS/2) + MTERilS) - 1) .GE. 0 

ill 2Z 

CQMSISTEICY: CK 

OUTPUT: 


:1 0 

SUSROUTIf€ !NTERP(X. Y, NPTS. NTERHS. XIM. 


Pinal Values 
:11 2S 


n - i - {MTEPliS/2) 
NTERnS - l^ilESnS 


ORIGINAL PAGE IS 
OF POOR QUALITY 


Case 4.7 



PATH: S-S 13-14 SS 


PREDICATES: 




:i 2 

SU2r:CUTll.E 

lliTECPIK. 

V, NPTS, MTECnS. XIN. YOUT) 

:7 8 

X i M - X \ i ) 

.EQ, a 


:i2 59 

COMSISTEMCY: OK 



OUTPUT; 




:1 B 

SUE.RCLiTIi.E 

INTERPIX. 

Y, IIPTS, lilERiiS, XIM, YOUT) 
■ . ■ « « 


S9 i.'QTE: Rsfcrrar.ct: to uiiitiolizcd voriuole 11 

Finsl Vs lues 

:13 &S 11 - II 

^iTERr:S = NTERflS 


CoGC 4.3 


PATH: 2-S 15 7-12 lS-24 


PREDICATES; 


1 

2 

surinouT 

: TC 
« 1 

I[!TERP(X., 

Y 

7 

£ 

XII! 

- X 

(1) 

.GT. 

0 


11 

O 

*b 

XI 

- X 

(2} 

.LT, 

0 


13 

13 

4L 

CNT! 

IRil 

S/2) 

.Li. 

6 

17 

13 

4 - 

Ui 

+ 

[.TERii 

S) -■ 

1) 


22 

1 4- 

4 - 

ijT::bMC 

< ^ > i^» ki ii0 

. Li, 

0 

22 

23 

eOlISlSTEUCY: 

GK 





NPTS. . NTERHS, K!M* YOUT) 
»LT. 0 


OUTPUT; 

Fihsl Values 

i22 28 II « 1 

HTERHS - 4 


Case 4,9 


PATH; B-£ 15 

7-12 iS-22 



PREDICATES: 




:1 a 

SUeRGUTILE Ua'ERPtX. 

Y. 

NPTS, NTiRnS. 

:7 8 

XI:^! - XQ) ,GT. 0 



ill 3 

XIU - X(2) ,LT. 0 



;13 13 

2 - {HTCRi'iS/2) .LE, 

6 


;17 15 

4 - HI 4- MTERilS) - 

1) 

,LT, 0 

;23 22 

1^4- NTERliS ,GT, 

a 


:2a 28 

GQIiSISTiNCY; OK 




OUTPUT: 

:1 C! SuBROUTIi\E IWTERPIX, Y» k'PTS, WTERMS, X!M, 


YOUt) 



YOUT) 


Final Values 

. nn 7-5 


n t. 1 4. 4 - rjTFRns 







PCilDlCATiZ ' J ! 
!i C 
:7 S 
:11 3 
: Id 3 
:17 le 
:21 13 
:24 22 


: 2 o 


3UB20U7!:;iI IMTERfMK. Y, TiPTS, IJTEF.r.S, XIM. YDUT) 
KI,N - X(l) *GT, 3 
Xlli - X(2) .GT. 3 
KIi'i - XiS) .LT. G 
2 - inTERI^3/2) .LE. 0 
4 - {(1 + I^TfeRMSi - 1) ,LT. 0 
1 + 4 - HTEFI'iS .LE. 3 
C0:iSI3T£:CY: OX 


OUTPUT: 

Final Valued 


:2G 22 
Case 4. ID 

II « 1 
NTERrio = 4 

PATH: 3-3 15 

7-3 15 7-12 13-22 

PREDICATES: 


:1 8 

SUBROUTINE INTIRPIX 

;7 £ 

>(!N - XQj .GT. 8 

;li 2 

KIN - X(2) ,GT. 3 

:iS 2 

XIN - X(3) .Lt, 3 

:17 18 

2 - {NTERns/2) .LE. 

:2i 13 

4 - { (1 + NTERnS) - 

.94 99 

1 + 4 - NTERNS .GT. 

:24 22 

CONSISTEICY; OK 


OUTPUT: 

:1 S 

Flna^ Values 
; 24 2S 


SUSROUTI.NE INTEPPfX, Y» MPTS, WTERHS. KIN. YDUT) 


11 - 1 + 4 - NTERnS 

». t "I" 


PATH: 2-S 1& 7-S IS 7-12 12-13 


PREDICATES: 
:1 2 
:7 S 
:ii 8 
; 1 S 8 
:17 13 
:2i 13 


OUTPUT: 

:1 2 


SUSROUTT.'S INTESPCK. Y, NPTS. NTERHS, KIN. YDUT) 
Xili - Kili .GT. 8 
KIN - X(2) .GT. 0 
XIN - X(3) .LT. 0 

3 - (NTERi:S72) '.LE. 0 

4 ^ ((i + NTERnS) - 1) .GE. 0 


2i 23 CONSISTENCY; GK 

1 e SUSRDuriNI itniRPCX, Y, MPTS. NTgKlS, X!N, YCUT) 




PATH: a-S 16 7-S iS 7-13 lS-2^ 


PHEDICATES: 



1 e 

sur;noui:;;2 iuterp(;<. y 


7 3 

Xlli - Kiii ,GT. 0 


11 3 

XII) - y,l2) ,GT. 0 


16 3 

XIN - XCS) .LT, 3 


17 10 

3 - £!lTInt;S/2) ,GT. 0 


13 19 

4 - IC3 - (NTERnS/2) 


22 22 

1 -i- 4 - NTESnS .LE. 3 


24 2S 

C0I-J§IST£r:CY; GK 

OUTPUT; 


F i n, 

is 1 Va 1 ue 

s 


;24 23 

11 - 1 



NTEF11S = 4 

Case 4. IS --- 


PATH: 

2-S ii 

7-S IE 7-10 13-22 

PHEOICATiS: 



1 0 

SUISOUTIKI ili'TERPfX, Y, 


7 8 

XH‘i - >;u) .GT. 6 


11 8 

XiN - XC2) .GT, 8 


IE 8 

XliJ - X(2) .LT, 3 


17 10 

3 - (NTERi1S/2) .GT. 0 


13 19 

4 - ((2 - f:)TiRnS/2) + 


22 22 

1 4 - HTERHS . GT, 0 


22 22 

GOHEiSTEMCY; QK 

OUTPUT; 


« 

1 G 

SUSROUTIf'IE IWTERPtX, Y, 

Final Va I ues 

; 

22 28 

1 1 = 1 -f 4 - UTERnS 




Case A. 20 


PATH; S-S 16 7-S IE 7-13 1S-I2 
PR£Q1CA^;:S; 


VOUT) 


YOUT) 


VOUT) 









20 23 


11 - 1 
NTERHS - 4 


Ccisc 4 . 23 

PATH: 3-S 15 7-3 15 7-3 15 7-12 13-22 

PkEDICATES; 

:i 8 SLOROUTirS iilTGRPlX, Y, NPT3, NTiRr.S. XIM, YOUT) 


i :7 

S 

XIM - XU) .GT. 0 

1 :11 

8 

XIi*j - XI2) .GT. S 

; :15 

8 

Xl!i - Xi2) .GT. 0 

;19 

O 

V 

XIN - X(4i .LT. 8 

1 :2l 

13 

4 - (MTIPI12/2) ,LE 

:25 

19 

4 - (U + NTERr.S) 

1 

1 : JLu 

22 

1 + 4 - MTEr.NS .GT 

1 

28 

CCMSI3TENCY; OK 


OUTPUT: 

:1 0 

Final Values 
:23 2S 


SUSROUTII^G INTEPPCX, Y. NPTS, NTERilS, XIN. YOUT) 


il = 1 + 4 - liTERnS 
NTERMS = NTERnS 


PATH: e-3 15 7-3 15 7-S 15 7-12 18-19 

PPiOIGATilS: 

;1 3 SU0ROUTIHE ifsITERPlX. Y, NPTS. NTERMS. XIN. YOUT) 


;7 

8 

Xlfl - XU) .GT 

: 11 

s ■ 

XiN - X(2) .GT 

: 15 

S 

XIN - X(2) .GT 

;19 

8 

XII,' - Xi4) .LT 

:21 

10 

4 - CNTlRnS/21 

: 25 

19 

4 - I U + NTERl 

: 25 

28 CC 

jNSISTENCY: OK 


OUTPUT: 

:1 e 

Final Values 
:2S 28 


SU3R0UTIKE INTER? IX. Y. NPTS, NTERiiS. KIN. YOUT) 


II - 1 

NTERHS - NTERHS 


Case 4.25 — — — — — . — — — — - 

PATH: 3-S 15 7-S 15 7-3 15 7-18 iS-24 




CTW- f 1 >:<»aiirgy>TO ? g^ 


PREDIGATES; 


1 

a 

SUDROUTlI.'E 

INTERPtX, 

7 

8 

XIM - 

xm 

.GT, 

3 

n 

8 

XI N - 

X(2) 

.GT, 

0 

IS 

8 

XIM - 

Xi21 

.GT. 

a 

IS 

8 

XIM - 

Xi4) 

.LT. 

a 

21 

13 

4 - (MTERnS/2) 

.GT. 

23 

19 

4 - {( 


f:nERf1S/2i 

28 

22 

1 + 4 

- MTI 

ERM3 

.LE. 

28 

28 

CDMSISTEMCY: 

OK 




OUTPUT: 

Final Values 
:2S 28 


II - 1 
NTtoS - 4 


Case 4.2G 


PATH: 8-S IS 7-S 15 7-8 15 7-lfi 18-22 

PREDICATES: 


:1 

0 

SUBROUTINE 

I NTS 

R?(X. 

:7 

8 

X!N 

- X(l) 

.GT. 

0 

:11 

8 

XISil 

- Xt2i 

• GT • 

Q 

:1S 

8 

XIM 

- Xt3) 

.GT. 

e 

:19 

8 

XIM 

- X(4) 

.LT. 

3 

;21 

13 

4 - 

(MTLRiiS/2) 

.GT. 

;23 

19 

, 4 - 

H4 ^ 

(MTEF.nS/2) 

:2S 

22 

1 + 

4 - MTERMS 

.GT. 


OUTPUT; 

;1 e 


;2S 28 COMSlSTSiCY: GK 
T; 

;1 B SUBROUTINE INTERP(X, Y, NPTS, NTERnS, XIM, YOUT) 


Final Values 
:2S 28 


II « 1 + 4 - NTERnS 
MTERi'S • NTERtlS 


Case 4 ■ 27 

PATH: B-.8 IS 7-8 15 7-8 15 7-10 18-13 


PREDICATES: 
:1 S • 
:7 S 
:11 8 
:15 S 
: 13 8 
:21 13 
:23 19 
:23 28 


SUBROUTINE IHTERPIX, Y. WPTS, NTERHS, XIM, VOUT) 
XIN - X(ll .GT. a 
XIN - X(2) .GT. 0 
XIN - X(3) :Gt. 0 

xiK' ^ x(4} .ct; e 

4 - {[\!TERr!£/2) .GT. 0 . 

4 - ((4 - vNTERt1S/2i + NTERHSl - 1) .GE. 8 
COMSISTEMCY: QiC 








OUTPUT: 

:1 3 

Flnol Values 
;23 2S 


SU3R0JTIKS IWTERPUI, Y. rjPTS, HTEPHS, XIH. YOUT) 


II - - {f^TtRii3/2) 

tNT2rti13 » tnHRilS 


ii 


Csse 4.23 * — — - — ----- 

PATH; S-8 IS 7-3 15 7-S IS 7-3 13-14 59 

SL'iPQUTIi-S IMTERPCX, Y» MPTS, NTERHS, XiN, YQUT) 


PREDICATES: 
1 B 


7 

3 

XIN - 

xa* 

.GT. 

3 

U 

8 

XIN - 

X(2) 

.GT. 

0 

15 

8 

XIN - 

X(3) 

.GT. 

0 

19 

8 

XIN - 

Xt4) 

.EQ. 

0 

9"? 

59 

CONSISTENCY! 

! OK 




OUTPUT: 

:1 0 SUDROUTII^E INTEnPIX, Y. NPTS. NTERnS. XIN. YOUT) 

59 fvOTE; Reference to unitialized variable II 


Final Values 
:22 59 


II - II 

MTERI1S - NTERnS 


[| 

0 

n 


Case 4.29 --- 


PATH: 3-3 IS 7-3 15 7-3 15 7-3 15 7 16-24 


PREDICATES: 
1 0 
7 S 

n 3 

15 8 
19 S 
25 19 
23 22 


SUBROUTIM IMTIRPTX, V, NPTS, NTERI1S. XiM, YOUT) 

XiN - X(l) .GT. 0 

XIN - Xi2i .GT. 8 

XIN - X(3) .GT. 8 

KIN - X(4i .GT. 0 

4 - (a + ; ^ NTiRNS + NTERflS) - 1) .LT. 8 
1 -i- 4 - NTIRHS .LE. 0 


33 28 CQNSISTiNCY; OK 
OUTPUT: 


Final Values 
:33 28 


Case 4,33 — -p------- 


II - 1 
NTERilS 


3-S 15 7-S 15 7-8 15 7-8 15 7 16-22 


32 


n 


n 










‘j f m n s h Bwi g . r^STTtTrtmsi 







PREDICATES: 


:1 C 

SUERuUTIME IMTERPIX. Y, NPTS. NTERilS, XIM. YOUT) 

i7 £ 

XIM - Xii) .GT. 0 

:li £ 

XIM - X(2) .GT. e 

4 r» r* 

: ID <t 

X!M - XI3) .GT. 0 

:1S 8 

XIM - X(4i ,GT. a 

1 25- IS 

4 - Hi + 4 - MTEnrrj + MTERns) - i) .lt. a 

.92 99 

1 + 4 - NTERMS .GT. a 

ft 

• «Lw ftGO 

CuMSISTENCY; OK 


OUTPUT! 

il 6 


SUSROUTINe INTEPP(X, Y. MPTS. NTERPIS, XIM, YOUT) 


Fin?it Values 

:2S 2S II « 1 -i- 4 - NTERMS 

NTERHS - NTERHS 


Csse 4.31 


PATH: g^S 15 

7-2 15 7-2 15 7-2 15 7 16-19 


PREDICATES: 

:1 S 

SUBROUTINE IMTERPIX, Y, NPTS, MTERtlC 

Xiri, YOUT) 

;7 8 

X!N - Xtl) .GT. 2 


;11 8 

XIM - X(2) .GT. 2 


:15 S 

Xli! - -X(3) .GT. g 


:13 8 

KIN - X14) .GT. e 


:2S 19 

4 _ (U + A - NTERNG + NTERnSi - 1) 

.G£. 2 

:2S 22 

GQMSI STINGY; OK 



OUTPUT: 

;1 g SUSRGUTII’E iKTERP(X, Y, NPT3, NTERdo, XIII. YOUT) 

Final Values 

;25 2g !i « 1 + 4 - NTERnS 

MTERdS = NTERnS 


^ggg 5 S3 sasaa^-stisac ss =i:ss:*«c-cil«ri*!= — J=J5B!tsa«a« = Kiaaitie«*»lis-ae=-Bsa=«s»=»~«**»*** 

AMALYSiS Or THE PART OF THE CODE THAT SETS UP DELTA (DELTAX) 

AHD DE:.TA(1}. SET NTERdS TQ 1. 

Case Coi.ir.vonds: 

OUTPUT DELTAX, DELTA j 
7 SKIP 2S; 

23 ASS I DM NTERMS-lj 
23 A3SIGM 

3d Halt ; 


Case S.l 


PATH! 3-3 23-32.1 33 


FReOlCATlES: 

OUTPUTS 

;1 2 SU:F:CUTir:E !iN!TERP(X. Y, NPTS, NTEFfiS, XiH. YGUT) 

:6 • 23 ** ASSIGiJ II - II 

Final Vatuec 

il4 3G DELTAX = (XIN - X(Il)3/(Xa + ID - XUD) 

CELTA(l) » (K((l + ID - 1) - XUlD/(Xa + 

!D - X(ID) 


Ca; 




AS III CASH 5, NTHR[V3=4. 
Case Ccr-Kitsncl&s 


OUTPUT DELTAX, DELTA; 
7 SKIP 23; 

23 ASS I G: I t iTtF.nS=A; 
23 ASSIGN 
3S HALT; 


Case S.l 


PATH; 3-3 23-32.1 33-22.1 33-32.1 30-32.1 33 
PREDICATES; 


OUTPUT: 

!l 

:G 


3 


23 


SU3FGJTINE !NTERP(X, Y, NPTS, NTERtlS. XI M, YOUT) 
*;v ASSIGN II - II 


Final Values 
;2S 33 


DELTAX = (XiN - XUlD/IXil 

DELTA 14} - (X{{4 + ID - 1) 
ID - XUD) 

0ELTA{3) = IXU3 + ID ^ D 
ID - XUD) 

DELTA (2) - CX((2 + ID - 1) 
!D - XUD) 

DELTAii) - (X(U + ID - 1) 
ID - XUD) 


+ ID ^ XUID 

- XUD)/{X(1 4* 

- XUD)/(K(1 + 

- XUID/CXU + 
^ XUD)/(X(1 4. 






-j - a 




a:!aly^is 
P0LYi:ar.i • 
\H THIS . 
CGCUn^NT- 


Ti-.E PART GP THP GCCE USPO TO GEf^RATE THE GOSFFIGIENTS. 
" uEGPiE i. :iIESnS-2, 

;. ;;e get the recursive foriiula to ca*x»AfiE with the 

:. bV AS'oiGIllMG A TO SYnSGLiC A, 



Case Cou 


7 SKIP 3: 

3S assig: 


3G OUTPU: 

-.■:){ 

37 assig; 

-- n ; 


* *TVf? ^ 

. - - r.. iS»w; 

2S assig: 

:lTA=="CELTA”; 

4G output 

M ) ; 

47 assig:. 
SI HALT; 




Case 7.1 - 


PATH: S- 3G-45 42 4g-47 37 

’ predicati; 

OUTPUT: 

:1 : SOSR0UTINE :NTIP:P(X. Y, NPTS. WTERilS, Xlii, YOUT) 

;5 T:. *vr AESIGN !i = U 

:7 ^ ** ASSIGN GSLTA - DELTA tUI) 

:S :: A(l) » YUl) 

:S ** ASSIGN A A(Sn 

:21 : AC2) - -Aa)/(D2LTA{2) - DELTA(l)) + (Yd + 

M)/ (CILIA (2) - DELTA (1))) 


Case 2 >-■■ ■= «=&iK'-UC==^«t:$'3£.C^ZS3SKa;A-=AS.££-S£&^fe:^aiSEBX.B-'B:e:SSsai'SfS'-SS;.S*-tt]ft-'3.S:9K:9*'l£-CS'9K 

AS IN CAG* ” EXCEPT PuLYNGniAL OF DEGREE 2, NTERNS-S. 



Case CGr.ir,K..'cie: 


7 SKIP 3G: 


3S 

ASSIGj. 

■ i = Ml 

3S 

OUTPUT 

' d); 

37 

ASSIGN 

■ -2“^ 


assig:. 

■ inns 

m ^■ 

OtD 

ASSIGN 

: l^TA=: 

Af? 

OUTPUT 

iK); 

47 

ASSIGN 

= "A"; 

SI 

HALT; 



ORIGINAL PAGE IS 
OF POOR QUALmr 



Case S.l 


PATH: [;-2 C' 4S-47 37-4S 42-4S 42 4S-47 37 

PREDICATES: 

uuTPuT : 


: 1 

Z 

SLDRuUTINE li 

:5 

* «« 

JiO 

ASSIGN 11 

• j 



* f 



xZ 

3b 

A(i) = Ydl) 

. Cl 

• w 

37 

*‘-v ASS I Gi /i 

:21 

43 

A (2) = -AC) 
11)/ C 

:22 

4? 

** ASS I GIj A 

:41 


A (3) *= -A (2) 


DELTA (2) - DELTA (2))* (DELTA (3) - DELTA(in)) 
•f (Y(2 + U)/t (DELTA C3) - DELTA(2))*( 

DELTA (3) - DELTA (1)))) 




a a B B ■ s s 




ARALVSiS Dr_rAR” 0.- PnCDRAr. THAT USES COEFFICIENTS FROII CASES 7 AND ^ 
TG CALLui_Ai(i CUTF'UTT VALUE GF VGUT. AS IN CASE 7, FOLVilDniAL OF 
DEGREE 1. NTERi1S=2. 

Caoe CDriir.iands: 

OUTPUT YOUT; 

7 SKIP SI; 

51 ASSIGN MTLr.'NS=2j 
51 ASSIGN A="A"; 

51 ASSIGN uELTAX-.'TjELTAX“; 

51 ASSIGN DELTA = ‘’DELTA"; 


Case 3.1 — 

PATH: S-3 51 -5S £S 57 52 53-53 

PREDiCATIS: 

OUTPUT: 


:G 51 

ASSIGN A = Alttl) 

*.■ 

:7 51 

** ASSIGN EELTAX = DELTAX 

j 

:S 

51 

** ASSIGN DELTA = DELTA (Cl) 

1 

Final 

Va 1 ufcs 


r 

:21 59 

msT = Ad) + A(2)*(DELTAX - DELTA (D) 

L 


AS IN CASE 3 EXCEPT POLYNGrriAL CF DEGREE 2, NTERMS*3. 
Case Cc;.i:'.:ands: 


36 


S 

i- 




ir flrrri-Tl 















><» cowl 1 (Hit 

I 

if (H. fit. Cl M TO M 

C OUT* 1$ dUTCHtOO roo STOfftNfl *M (TIOOTIOH 
OFiT**H«t.OC-U 
C DEL 15 MIITIIMV tUtFT 
PEt*li/tf .1110 

GO TO m 

5«l OCLTMC*t.«C>ll 
DELfC/Tr.llET 
C OELT* COOfilTiO 

C fitODUCE *-fl, jTtMTE 00 THIS TO »WE*f Of EIGEIIfimES Of EOOIIi (iODOLtlt 
“ U3 00 lOI TalTo ' 

lOT *1 t .l »=*i l*l |-OEL 


9 $ IF IW.NE.t ) CO TO W« 

C SUOOOUTIWE CDLCCV GCtCOiHTCS ClGCNVIlLttCS OF IKI OR >II 2 HRTRICtS. 
e FI IS fOOEO BACK IN CMCCV 

HI CALL C«LCEV(«,NnAB,OEL,VEC,lJI,N^n 

CP to I* 

WB IF (N.NEV 2 I 60 TO 00 
AT CALL GALCmA,NNAl«OEL,VEC, IJR,N,t» 

GO TO (A 

C OR TftBWSFOAHATtON $TMTS HERE 

c iiuTiAt.m FOR oetOniniwg subsequent shifts 

BO «Rl's 0 ,O ■ """ ■ - 

AR 3 B 0.0 
ARA> 0 .« 

C RE-ENTiA BFTER RERUT OR COHF|T SUBROUTINES GAiLED 
. C SELECT F iRST f i HAO t t S.U.B-Ol A_g-O.W§L ELEWENT FROfi BlOTTOH 

*1 L=N 

Dost |«t,N 

N 2 t«N*X>l 

IF! ABSIAINItfMtl'l II.IT.OELTAIGO TO «f 
A* L*L-I 

C VALOC OF L SELEGTEO 

9 f IF (L.NE/N) GO TO »9 
SB CALL CALCCV 4 A,NnAI, 0 EL,VCC,liH,N«l ) 

N«N-i 

^ 60 TO Ai 

ST IF ((L-N*r>.NE.B) GO TO FS 
AO CALL CALGEV(A,IMRN,DEL»«ECJJK,H,I» 

N-N >2 
60 TO SB 

C DETERNINE eigenvalues of 212 NATRIX — ROW I ■ A(N->I,N-II *<N- 1 ,N> 

C ROU 2 c A(N,M-I ) AIN.HI 

C ANQ BASE SHIFT ON THESE 

IS B=A(N-T,II -1 J•A(N,Nl 

C = A(N-I,N -1 )•A(N,N)-A(N,N-I IvAt N- 1 ,N) 

CI 4 cA(N^I,N^I )-AfN,N* 

OISC=Ct«CI*A.«>Al N,N*l )•A(N-I,M> 

IF I DISG.GE.B. I 60 TO AS 
A 2 Rls 0 . 5 «B 

A 2 =.S« SQATt RBSIOISCn 
ANun-( Al-ARl !•( AT-ART IAIR 2 -ARA l•(R 2 •AltA( 

0 EN 0 n^AA 3 «AR)*ARA*RRA 
IF IDENOH.NE.O, I 60 TO 200 
201 RNO-0.0 
SIGNA«B .0 
GO TO 203 



200 RitO^G 
SI 6 NATB 
203 AR 3 >RI 


ARA>R 2 

call COnFITI A,NHA«,L ,N,RNO, SJ 6 NA I 
60 TO AT 


A 3 I F f B . GE 10. I 60 TO AS 

AA R| 3 . 9 «IB- SORTIQISCn 
60 TO 4 B 


MAIN-2 


h 


^ 1 










Rl : . S •( SUHM 01 VC » I 
IF I Ml .ME .0. I GO rO ** 
•3 M2«0.0 
GO TO MB 


MM Hf-c/m 

OPOTV OF ?*7 HATRIX FOUND 


MR IF (AHI.NE.O 
72 SN|FT>0.0 
CO TO 73 


73 ARI=AR2 

CALL REALITt A,NnAI,L.N,SUFT,CC,SS I 
GO TO Ml 

C ARE VECTORS NEEOEO 


>0. 76 IF (NVEC.EQ.OI GO TO 600 

>1. C INVERSE ITERATION IS USED FOR EIGENVECTORS 

2. SSO SOALL:OELTA*I .OE-30 

3. NUN=0 

B. JI=I 

A 

m! C Cl IS real part of EIGENVALUE 


c( jn 

IPLEX PART OF EIGENVALUE 
C( Jl*l I 


IESSENBURG MATRIX AND MULTIPLIERS 
0 1=1, NN 

0 J3|,NN 

1 >=0( I. J I 

2.NE.0. > GO TO 961 

RVEC( A,NMAX, INT,CI , SMALL, NN,NUn,EIGVEC.NVCC,CC,SS I 

*2 

EC.EO.NUMIGO TO 600 
' SI3 


C NEXT S 
JI 
IFi 
GO 













CALCEV 


SunNOUTIMF CAl CFV( A , Nn A I , OFL , VEC , IJR , N, H ) 
OinFNSION A< NriAl.NnAX », V(C( I I 
IF <n.NE. I I GO TO 2 
I Al=0.0 

A( N,N l-AI F«,FM«OEL 
C STORE EIGENVALUES IN VEC 
VFCl UK >:AI N.N I 
VEC< IJK«I |sRl 
I JKs|JR«2 
RETURN 


2 B= A( N* I , N-l l*A( N,N ) 

CBAIN-I.N-I )*A(N.N>-A(N,N-t l«A(N*l,NI 
CI=AIN-I,N-I )-A(N.N> 

Disced •CI*N .0*A( N,N-I )*A( N-I,N I 
IF I OISC.LT.O. > GO TO 9 
N AIsO.O 

IF ( B.GE.O. I 60 TO 6 
RI=O.S*(B- SORTIOISCII 
GO TO 7 


6 flUO.Sol B* SORT! OISC >) 


IF(RI ne.O. ) GO to T 
10 R2S0. 

goto II 


T HE=C/HI 


II Rt=RI«0EL 


R2=R2»OEL 
VEC( UK )sH2 
VECI UK*I )3AI 
VEC( UK*2 )xRt 
VECI UK*3 )>At 

go to 0 


AU-.S* SORT! ABSI OISC I) 

R|:RI«0EL 

VECI UR )=RI 

VECI UR*1 )«-Al 

VECI UK*2 >sRI 

VECI UK*3 J = AI 


B UK=UK**» 


CALCEV- I 


SUBROUTINE REBUT! B , NNBX , L, N, SN IFT, C, S I 
DintNStON BiNnBX.NnAi i,C( I >,S( I I 
IF I SHIFT.EO.O. I GO TO 2 
003 l«L,N 

an . I )gBC I. I l-SHIFT 


n=N-l 
OOB liL.IR 

OENOn= SORT! B! I, I l••^♦B! l^l, I >••2 I 
IF ! OENOn.GT.O. ) GO TO 10 
II C! I )M.O 
S! t |:0.0 
GO TO B 


C! I >sB! I, I l/OENOn 
S! I t^B! !♦! . I )/OENOn 
B! I, I IsOENON 
I|e|«| 

00 3S J>M.N 
F»B! I, J » 

B! I, J >=•( 1*1 , J )*S! I )♦F•C( I I 
B( l«l, J >=<l! t*l.J )*C! I )-F«S! I I 
CONTINUE 


CONTINUE 

TRIANGULBR HBTRIX FOREIEO 
005 JsL.n 
00» t*L,J 
F*B! I, J » 

B! I, J >*A( l,J*l >*S! J )♦F•CC J I 
4! I. J*l »=R< I, J*l 1*C! J J-F*S< J I 
A! J*l , J J*l , J*l ••S! J » 

A! J»l , J*» »=B! J*I , J*1 )*CC J I 
transformation COMFLETEO 
IF ! SHIFT.EO.O. ) RETURN 
009 |=L.N 

B! 1,1 l=B! 1,1 {♦SNIFT 

RETURN 

END 





SUBROUTINF CnnPITl A.NnAK,L,N,RH0,SI6NR> 

OinfNSION (MNnAI.NtlAXI 

C HOUSiHOlOtR tVPE nATRlCES USED IMSTEAO OF ROTAT I ONS( SEC FRANCIS PAPER > 
n*N-l 

DO I |sL,N 

IF ( I.NE.L I CO TO 3 

2 ei^AI L,L )•! A( L,L l-SIGPIA )«AIL.L*I laAl L*t ,L I*RH0 
B2<AIL*I,L )•( A(L,L >-»A(L*l,L«l >-SIGHA> 

B3«A(L*l,i. l•A(L♦2,L♦i I 
Al L*2,L )«0.0 

CO TO B 


3 BI=AI I, 1-1 ) 

B2>A( l^l, l-l > 

IF ( I.EQ.I1) CO TO 
A B3<AI 1*2, !-l I 
no TO A 


8 IF ( O.EO.O. i GO TO 1 
t CI>B2/I 0*RI I 
C2>B3y(0*BI I 
E<2.0/l I .0*CI«CI*C2*CZ > 

DO 10 Ks|,N 
IF < I.EO.ni GO TO 12 
II G3E*( A( l,K )*CI*A( 1*I,K )«C2*AI l*2,« }> 
At 1,K |3A( 1,K >-G 
A( I*I,K |3A( 1*1 K)-CI*6 
At 1*2, K |sAt 1*2, K )-C2*6 
GO TO 10 


12 G = E*t At I,K l*CI*At I*t,K n 


At l,K |3At l,K 1-6 

At 1*1. K )=At 1*1. A l-CI*6 


10 CONTINUE 

IF I I.EQ.L) GO TO IN 
13 At I, l-l Js-O 
Al 1*1, l-l )b 0.0 
IF I I.EO.ni 60 TO IN 
15 Al 1*2, I-l IsO.O 

ROW OPERATION COnPLETEO 


IF I I.EO.ni GO TO 20 
IT G3E*I Al K, I }*CI*AIR, 1*1 l*C2*ACR, 1*2 II 
Al K, I )3AI K, I 1-6 
AIK, 1*1 |3AIR,I*1 l-CI*6 
At K. 1*2 )3AI R, 1*2 l-C2*G 
GO TO 18 


20 U = E*t Al K, I l*CI*AI K, 1*1 1 1 


At K, 1*1 )3Rt K, t*l l-CI *6 


18 CONTINUE 
J=I*3 

IF IJ.6T.NI 60 TO 1 
21 G = E*C2*AI 1*3, 1*2 I 
Al 1*3, I l»-6 
At 1*3, 1*1 |3-C1*0 
At 1*3, 1*2 l=At 1*3, 1*2 l-C2*8 
^COLONN OPERATION CONPLETEO 


COMPIT- ! 







SUB* OUT I HE *VEC( *.Hn«l, INT.CI . SHALL ,H. NUn, C I6VEC.NVEC, IHTEB.T I 
OIHEHSIOH *« HHBI.HH*! I. IHTC*! I l.tt I ), IHTI I I.CIbVCCI HH*t,HH*I > 

001 MI.M 

I *( I, I )*«( l.l l-CI 

002 l>2,l« 

IE( •&$(«( l-t, 1*1 M.GE. ABS( *t 1.1*1 inCO TO * 

3 IHTEBI 1 |s| 

J=l*l 
DOS K«J,N 
B>A( t-l,R I 
*1 1*1, K >**( I.R ) 

S *1 1,1 )«B 


2 COHTINUE 

TBIANCULAR HATRIl FONHEO 
009 l«l,N 

IM ABSI *( I, I I T.CE.SHALL )60 TO 9 


9 CONTINUE 

C NORHALISEO ((EIGENVECTOR)) OF NESSENBURG HATRII OBTAINEO FOR RN$ ■ I 
00 SSSS |s|,N 
5555 V( I )=l .0 

00 B8S8 JJJJ«I,9 
7JTT V(N):V(N)/*(N,N) 

B:V(N> 

0011 l«2,N 
E^O.O 

00)2 J>2,| 

LsN*J-| 

12 E:E»V(L )*«(N,L ) 

V(H)s( V(H)-E )/A(H,H) 

IFI A8S(B).GE. *BS(Vin)))GO TO tl 


II CONTINUE 
0019 l«l.N 
19 V( I >sV< I )/B 

1F( JJJJ.C0.9 >60 TO BBB* 

0015 |«2,N 

IF ( INTER! I ).NE. t ) GO TO 19 
I* B>V( I ) 

V( I )aV( 1-1 ) 


15 V( I )=V( I )*A( 1,1-1 )*V( I 
8888 CONTINUE 


52. C eigenvector OF NESSENBURG flATRII OBTAINEO (NOT NQRHALI2E0) 


6666 n:N-l 


21 CONTINUE 


C UNN0RI9ALIZE0 EIGENVECTOR OF ORIGINAL HAiRII OBTAINED 

8 * 0.0 

0022 t>1,N 

IFI ABSIBI.GE. ABSIVimiGO TO 22 
23 B*V( I ) 


0029 |« 


RVEC- I 





invtc 


SUBROur INE tnVEC(R,MnRI, INT,CI ,«nu,SnRll.M.NUn,f lOVCC.MVEC, IMTCR 
IV./.B I 

Oir«(*«MON AChnAl.NnBl l, INTERI t ),V( I >,<l I I, INTI I I, •( NNAI .NfIBI t. 

It ICVEC(NnAI,NnRI I 
0010 l«l,N 
0010 J«I,N 
10 Bl I, J )«0.0 
001 l>I.N 
Rl I, t l*AI 1,1 I'CI 
I Bl I, I )cB| 1,1 )-BWI 
00 ? 1 * 1 , N 

C*R< l-l , l>l l»RI l-l,l-l >«B(|-I,I-I MB! I-l, 1-1 ) 

0*A( I, l-l IvAl 1,1-1 >*B( 1,1-1 >*B( 1,1-11 
IE iC.GE.Dt GO TO 1 
3 INTER(t)*l 
G*C 
C*0 
0=6 
jsl-l 
001 K«J,N 
G«A( l-l,R ) 

Al |-t,R )xlM I,! I 
Al l,R )*6 
G=BI 1-1, R > 

Bl I-I,R >*BI l,R > 

5 BII,R)=6 


AI»riL) 
A?*E(L > 
0011 1*1, N 


IMVEC-I 


ORIGINAL PAGE IS 
OF POOR QUALITY 


28. 

H 

INTERI 1 )«I-I 


29. 

6 

IE 1 O.EO.O. ) GO TO 2 


30. 

T 

G = AI 1,1-11 


31 . 


Al 1, I-l )s-IG*AI 1-1, I-l )*BI 1, I-l >*B( 1-1, 

I-l >>/:: 

32. 


Bl 1, I-l »=-IBI 1,1-1 >*AI I-l, I-l )-G*BI 1-1, 

I-l n/c 

r 33. 


OOB Rsl.N 


31. 


A( I.R l*A( 1,R l*A( 1, I-l )*AI I-l ,R l-BI 1, I-l 

IvBI I-I,R 9 

L 31 . 

8 

B( 1 ,R )=B( 1 ,« •♦Bl 1 , I-l »»A* I-l ,R )*AI 1 , 1-1 

l*BI I-l .R t 

36. 

2 

CONTINUE 


3/. 

C 

TRIANGULAR HATRII FOREIEO 


r 3B. 


009 1*1, N 


39. 


C = A( 1, 1 )*A( I, 1 l*BI 1, 1 )*BI 1, I i 


10. 


IE I C.GE. INALL ) GO TO 9 


H . 


Al I, 1 IS SORTI SHALL 1 


12. 


B( 1 , 1 1*0.0 


L 13. 

9 

CONTINUE 


r 11 . 


DO nil 1*1, N 




VI 11=1 .0 


16. 

1 1 1 1 

21 1 1=0.0 


— ir. 


00 BB8B JJJ«I,1 


IB. 


C = AIN.N)*AIN,N)«BIN,N>«BIN,N} 


19. 


6=VIN» 


50. 


VI N >=l C»A( N,N 1*21 N )*B( N,N > )/C 


SI . 


21 N 1=1 21 N )*AI N,N )-G*BI N, N > )/C 


p- 52. 


0017 1*2, N 


53. 


E = 0.0 


51. 


F»0.0 


55. 


M=N«I-I 


r 56. 


0018 J«2,l 


5T. 


L=N*J-1 




E=E*VIL l•Aln,L I-2IL )»B(H,L ) 


1- 59. 

IB 

E=E*VIL l-BI n,L H2l L )*RI n,L 1 


60. 


D=A(n,n)«A<n,n>«Bin,n>*Bin,ii) 


61 . 


G=v(n> 


62. 


vifn=i 1 G-E)«A(n,n )*< 2i n )-F )*B'n,ni )/o 


•“ 63. 

1 7 

2in)si(2ini-E )«Ai n,n )-( G-E >•Bln,n))/o 


61. 


E=v.O 


r 65. 


0051 1*1, N 


66. 


E = VI I >»VI I >i2l 1 1*21 I 1 


6T. 


IF (E.GE.FI 60 TO 91 

1 

6S. 

52 

E»F 


69. 


L*l 



r9. 



G*V( 1 1 




91 1 I*IC»A1*2I 1 l•*2 )/E 

rt. 


19 

11 1 l<« 21 1 ItAl-G^AE I/E 

22. 



|T| JJJ.E0.9 1 CO TO 6666 

2#. 



0015 1*2, N 

29. 



IF ( INTERI 1 I.RE. 1 1 GO TO 30 

00. 


16 

6>V( 1 I 

01. 



91 1 l»V( 1-1 I 

02. 



91 1-1 l«6 

03. 



6*21 1 1 

09. 



21 1 )*2( 1-1 1 

05 . 



21 1-1 l>6 

06. 


30 

91 1 1*91 1 1*A| 1, l-l )»9I l-l l-BI 1, l-l )»2l l-l 1 

02. 


15 

21 1 )> 21 II' 01 1. 1-1 1*91 1-1 >*AI 1 , l-l )»2I l-l I 

00. 


0000 

CONTINUE 

09. 

__C 


EIGF*9V(CT0R or HFSSfNRURC HATRII OBTAINFO 

90. 


6666 

risN-l 

91 . 



0021 1>2,N 

92. 



J=l»*l-I 

93. 



t*J*l 

99. 



0020 RBL,I« 

95 . 



91 ■ 1*910 1-91 J l*Am, J-l 1*21 J >•0111, J-l ) 
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Uorking rtti locti voriobit. 

Uorking r«tl local varlablo. 

Uorking real local variable. 

Subprograa entry point. 

Uorking real local varlabit. 

Uorking real local variable. 

Uorking real local variable. 
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Uorking real local variable. 
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•pptart In th* folloalng call* • ABS argu*tnt # 1. 

Uorking real local varlabit. This syMbol appears In The folloving 
calls - ABS arguaient # 1. 

Uorking real local variable. 

INPUT real arguaant no. *1. 

Uorking real local variable. 

OUTPUT real arguiaent no. B, d I « a n s I o n e d (NnAX,NnAX). 
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INPUT Integer argueent no. 6. 

INPUT Integer argueent no. 2. 
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Subroutines Called; 

SQRT 




f! : 

ii:' 

Li'j 


rn 

U: 


Lji 


?9 «))« 76 6 . 0^“01 



r 


COMPIT. 1-! 


41 J 


SUBROUTINE RVEC 



Inputs: 

A Cl INT INTER N NtIflX NUM SMALL V 

Outputs: 

A EIGVEC INTER Y 

Subroutines Cilled; 


■. J 


Zt flA« Tt 0«O4-O] 


RVEC. 1-1 


42J 


I 

J 


U:j 




I y 

A '■ 

u-j 


Si. 


SUBROUTINE IMVEC 


Inputs! 

A AMU B Cl INT INTER N NMAX NUn 

Z 

Outputs! 

A B EIGVEC inter NUW V Z 

Subroutines Called: 

SORT 

Inputs: 

Outputs: 

Subroutines Called: 

CALCEV COMPIT IfIVEC BEALIT HVEC 5QRT 


i; 


IJO 




L:0 




29 MAR T6 0.09-01 


ORIGINAL PAGE IS 
OE POOR QUALITY 


SMALL V 


IMVEC. 1-1 


43J 


THE FOLLOWING Tif A GF THt USAGE CODES HHICh MAV APPFAP IN 

THE cross-reference MATRIX, UCH APPEARANCE IF A USAUE COPE 
INDICATES HOW THE SYMdOu TO Tt^E LEFT IS USED IN THE SlBROLTlNt 
LISTED AEOVE, 


A ARITHMETIC STATEMENT f UNCTION 

C CONSTANT APPEARS IN DATa STATEMENT AwD IS USED BUT 
VALUE IS NOT Rb^CALCULATED, 

D DATA r appears IN DATA STATEMENT RUT Is I OT USED, 


E SUBROUTINE ENTRY POINT, 

F FUNCTION reference. 


1 

M 


0 


P 


FDR variable « INPUT, USLd BUT NOT REpCALCULATEH , 
FDR I/O FILE = USED IN RLaD STATEmEM, 


FOR VARIABLE « MODIFIED, ROTH USEn AND RI wCALCUL ATED . 

APPLIES Tl COMMON VAPIAbLIS AND ARGUMEt’TS, 
FOR I/O FILE BOTH READ AND WRITTEN, 


FDR variable tr OUTPUT, VALUE IS CALCULATI D BUT NUT USED, 
FOR I/O PILE - USED IN EfiOHLE, PRINT, PINCH, AND/OR 
WKiTt statement, 

FOR FUNCTION NAME ^ FUNCTION ENTRY FOInT IFUNCTILN VALLE 

IS OUTPUT}, 


I/O FILE POSITIONED BACKSPACE OR REWIND, 


S SUBROUTINE CALL 

W WORKING VARIABLE - BOTH CALCULATED AND USED, APPLIES TO 

LOCAL variables ONLY, 


(INTEGER) ARGUMENT NUMBER, THE VARIABLE AT LEFT APPEARS AS 
THE i«TH ARGUMENT IN A CALL TO THt ABOVE SLUR. 

* argument numbers, two dr more Integers 
(argument numbers, see ABOVE) BtuOl G HERE 

SO THE USER HaB TO CONSULT THE PRD(<RAM GtPbSARV 
TO SEE what They are, 

♦ THE COMMON BLOCK ON THE LEFT APPEARS IN THE 5UBR(.<UT It f 
ABOVE, AT LEAST ONE ELEMl NT OF THE COMmCI BLOCK IS USPD 
IN SOME manner, 


-I- 

-U 




44J 


« CROSS HGFERENCE MATRIX r / V T T/ 

/ E I C 1/ 

3/29/76 PAGE 2,01 / C P E N L/ C 


/UMVIA/E- 
/ A 0 M A L/ V 


SYMBOL 

STORE 

LOC 

/ c 

C 1 

H 

R/ 

R / 

^ ^ M ■ W ^ 

SHIFT 

/MAIN 

/t* 

) 

1 

* ^ 

R ^ P 

w 

5, 


SIGMA 

/MAIN 

/{* 

) 

t 

t 

w 

t 


small 

/MAIN 

/(* 

J 

« 

6 

w 

• 

5 1 

ss 

/MAIN 

/{# 

) 

1 

12 

I 

7, 

ii 1 

VEC 

/MAIN 

/(♦ 

) 

f 4 


I 

1 


Z 

/MAIN 

/!♦ 

) 

t 

13 

I 

1 


A 

/REALlT/(ARt> 

13 

1 



Mi 


c 

/REAL1T/(ARG 

6) 

1 



M. 


u 

/REAUIT/URG 

3) 

t 



I. 


N 

/REALIT/CARG 

4) 

1 



I. 


NMAX 

/REALlT/tARG 

2} 

1 


p * 

T 


reauit 

/REAUT/I$ 

) 

1 


s 

El 


s 

/REALIT/(ARG 

7) 

f 



M, 


SHIFT 

/R£ALIT/(ARG 

3) 

1 



I. 


A 

/RVEC 

/( ARG 

1) 

t 



r 

M i 

Cl 

/RVEC 

/{ arg 

4) 

1 



t 

1 i 

elGVEC 

/RVEC 

/urg 

8) 

1 



I 

n 1 

I NT 

/RVEC 

/CARS 

3) 

t 



1 

I < 

INTER 

/RVEC 

/(ARGiO) 

t 



I 

M 1 

N 

/RVEC 

/( ARG 

6) 

* 



t 

I t 

nhax 

/RVEC 

/t ARG 

2} 

1 



1 

1 

HUM 

/RVEC 

/(ARG 

7) 

f 



t 

I 1 

RVEC 

/RVEC 

/(S 

) 

t 


s 

t 

E t 

SHALL 

/RVEC 

/(ARG 


1 



■ 

I 1 

Y 

/RVEC 

/(ARGU) 

> 



1 

H e 

SORT 

•p ■ pi •* 1 

/SORT 

/CS 

3 

— ^ 

! r 

ff M nr 4 

I F 

* » M ^ 

F 

ft 

** * t 



CROSS REFERENCE MATRIX i. / V T T/ 

E I C. 1/ 

3/29/76 PAGE IjOl / C P E N L/ C 


SYMBOL 

STORE |„QC 

/ 

/ A 
/' C 

1 

0 

H 

0 M 

I 

V I A/ E 
A E/ V 
M R/ R 

/ 

A 

/CAUCEV/URG J.) 

t M 


^ ■ 

1 



CAUCEV 

/calceu/c$ ) 

f E 



S t 



m 

/CALCEV/(ARG 3) 

. I 



1 



IJK 

/CALCEv/(ARG 5? 

t M 



1 



M 

/CALCEV/CARG 7) 

. I 



1 



N 

/CAlCEV/tARG 6) 

* ^ ^ 
t I 



V B B m 

1 


t 

nmax 

/CALCEV/CARG 2) 

. ! 



I 



VEC 

/CALCEV/ lARG A) 

1 c 



» 



A 

/CDMPIT/CARG 1) 

r 

1 


t 



COHPIT 

/COMPlT/t$ ) 

1 



s 1 



U 

/COMPIT/tARG 3) 

t 

I 


1 



N 

/COMPIT/(ARG 4) 

1 

I 


t 



NMAX 

/COMPIT/(ARG 2) 

t 

I 


t 



RHO 

/COMPIT/URG t>) 

1 

1 


1 



SIGMA 

/COMPIT/CARG 6) 

I 

I 


1 



A 

/IMVEC /{ARC i) 

t 


M 

B HI ■ 

t 



AMU 

/IMVEC /(ARQ E) 



I 

t 



B 

/IMVEC /(ARQ14) 

1 


M 

1 



OX 

/IMVEC /(ARG 4) 

t 


I 

t 



EIGVEC 

/IMVEC /lARG 9) 

1 


0 

1 



IMVEC 

/IMVEC 7(5 ) 

^ IPi 

t 

t* 

e 

s 1 



INT 

/IMVEC /(ARG 3) 



I 

I 



INTER 

/IMVEC /(ARGU) 

» 


M 

1 



N 

/IMVEC /(ARG 7) 

t 


I 

t 



nmax 

/IMVEC /(ARG 2) 

f 


I 

1 



NUM 

/IMVEC /(ARG 8) 

* 


H 

1 



SMAUU 

/IMVEC /(ARG 6) 

I 


I 

1 



Y 

/IMVEC /(ARG12) 

f 


H 

• 



Z 

/IMVEC /(ARG13) 

t 


M 

1 



A 

/MAIN /(« ) 

, 1 

1 

1 

w 1, 

1 


BB 

/MAIN /(« ) 

1 


14 

* B B B » 

I . 



cc 

/MAIN /{"* ) 

1 


U 

I 6, 

in 


Cl 

/main /(* ) 

1 


4 

N . 

4 


C2 

/MAIN /(* ) 

» 


b 

W 1 



PBl 

/MAIN /(• ) 

• 3 



w . 



EIGVEC 

/MAIN /(* ) 

1 


9 

I . 

B 

iB ^ 

IJk 

/MAIN /(• ) 

, 5 



W t 



INT 

/MAIN /(* J 

1 


5 

w , 

3 


L 

/MAIN /(* ) 

t 

3 





N 

/MAIN /(• } 

f 6 

4 


W 4, 



NMAX 

/MAIN /(♦ ) 

1 2 


2 

I 2* 

2 

B ^ • 

NN 

/MAIN /(* ) 

t 


7 

I r 

6 


NUM 

/MAIN /(* ) 

1 


b 

W t 

7 


NVEC 

/MAIN /<» ) 

1 


lu 

I 1 

9 


RHO 

fi •* p> « *• 

/main /(* ) 

t 

m 

b 

t* 


1 

B B B j 


BBS). 




SOURCE PROGRAM LISTING 






ca^.-.n 


5 IN THE LABEL FIELD INDICATES THE EXPANSION 
OF THE logical IF STATEMENT ON THE PREVIOUS LINE 


LINE stmt rLOCK 


SOURCE 


1 1 1 subroutine UNSElG(A|NMAX,NNiNVECiVEC»El6VECiINTiCCpS5tZiDiBaj 

2 0 0 C FOR description Of METHOD USeD IN THIS PROGRAMt SEE **THE QR 

3 0 n C transformation** by FRANCISt COMPUTER JOURNAL* VOL. ^ PP. 265*332 

4 0 0 C start here to produce UPPER HESSENrURG MATRIX 

5 2 1 DIMENSION a(NMAXiNMAX) iINT(l) *VEC(1J *D(NMAX*NMAXI *EIQVEC(NMAX»NHAX 

6 2 1 C) 

732 NsNN 

843 KsN-2 

9 5 4 DOlJ=tl*K 


' Q 

6 

5 


K1=J+1 

1 ] 

7 

6 


K2=J+2 

12 

R 

7 


GREAT* A8S(A(K1*J1 1 

13 

9 

a 


MAX*Kl 

U 

10 

9 


002I*KS»N 

15 

11 

10 


AB* AbS1A(I*J) 1 

16 

12 

11 


IF (GREAT, GE.AB) 

16 

13 

12 


$ GO TO 2 

17 

14 

13 

3 

GREAT*AB 

IB 

15 

14 


MAX^I 

19 

16 

15 

2 

CONTINUE 

20 

0 

0 

C INTtI) GIVES information 

21 

17 

16 


INT(J}=MAX 

22 

la 

17 


IF (MAX.EO.Kli 

22 

19 

IS 


S GO TO 5 

23 

20 

lo 

4 

D06L»J*N 

24 

21 

20 


E=A(K1»L) 

25 

22 

21 


A(K1 »U*A(HAX,L) 

26 

23 

22 

6 

A (MAX*L) *E 

27 

24 

23 


U07L»1*N 

23 

25 

24 


E=A (LtKl 1 

29 

26 

26 


A(LfKlJ»A(L*HAXJ 

30 

27 

26 

7 

A(L*HAX)=E 

31 

0 

0 

C 

INTERCHANGE DONE 

32 

23 

27 

5 

OOBI=K2*N 

33 

29 

28 


IF (A(I.j) .EQ.O.) 

33 

30 

29 


S GO TO 8 

34 

31 

30 


A(I*J)=“A(I,J)/A(K1*. 

35 

32 

31 


U011M=K1 IN 

36 

33 

32 

n 

A (I iM) sA (I ,M) .A (1 , J) ' 

37 

34 

33 

8 

continue 

38 

0 

0 

C 

LEFT MULT. DONE 

39 

35 

34 


00 2000 MsK2iN 

40 

36 

35 


IF (A (Ht J) ,EQ.n.) 

4n 

37 

36 


% GO TO 2000 

41 

38 

37 

ID 

DO 2001 I=liN 

42 

39 

3B 

2001 

A (I,Kll=A(ItKl}-A tl,| 

43 

40 

39 

2000 

CONTINUE 

44 

41 

40 

1 

CONTINUE 

45 

0 

0 

C 

RIGHT MULT. DONE 


ABOUT interchanges 


Q S 

g 

gS 

it 

p a 




A6 

0 

0 

C 

HESSENBURG matrix now formed as AHiJ). multipliers stored with it 

47 

42 

41 



DO 105 I»lfN 

48 

43 

42 



DO 105 J31,N 

49 

44 

43 


105 

D(If JlsAlItJ) 

50 

0 

0 

c 

PUT 

APPROPRIATE zeros WHERE MULTIPLIERS WERE STORED 

51 

45 

44 



DO 106 I=3tN 

52 

46 

45 



LaI-2 

53 

47 

46 



00 106 J=1,L 

54 

48 

47 


106 

A (Ii JlsO.o 

55 

49 

48 



Kl = N+l 

55 

50 

49 



RaO • 0 

57 

51 

so 



CsO.O 

58 

52 

51 



0033I=1$N 

59 

53 

52 



RaR* ABS (Atlfll 1 

60 

54 

53 


33 

CsC+ ABStAlIfNH 

61 

55 

54 



0034I=2iN 

62 

56 

55 



RS=0.0 

63 

57 

56 



CS=0.0 

64 

58 

57 



L = I-l 

65 

59 

58 



0035Ji=L»N 

66 

60 

59 



HS=RS* ABS(A(I,jn 

67 

61 

60 



KlJ=Kl-J 

68 

62 

61 



K1I=K1-I 

69 

63 

6? 


35 

CS=CS* A8siA{KlJ*Knn 

70 

64 

63 



IF (RS.LE.R) 

70 

65 

64 



5 GO TO 36 

71 

6l> 

65 


37 

RaRS 

72 

67 

66 


36 

IF ICb.LE.CJ 

72 

68 

67 



S GO TO 34 

73 

69 

68 


44 

C=CS 

74 

70 

69 


34 

CONTINUE 

75 

71 

70 



I JKBl 

76 

72 

71 



IF (R.GE.cl 

76 

73 

72 



S GO TO 54 

77 

0 

0 

c 

DELTA IS criterion FOR STOPPING AN ITERATION 

78 

74 

73 


53 

DELTAaR»l,OE-ll 

79 

0 

0 

c 

DEL 

IS arbitrary shift 

BO 

75 

74 



DEL»R/17,1029 

81 

76 

75 



GO TO 153 

82 

77 

76 


54 

UELTA=C«1 .oE-11 

83 

78 

77 



DEL=C/17,i029 

84 

0 

0 

c 


DELTA computed 

as 

0 

0 

c 

PRODUCE A-PI* iterate ON THIS TO BREAK UP EIGENVALUES OF EQUAL MODULUS 

66 

79 

70 


153 

DO 107 1=1, N 

87 

80 

79 


107 

A{I»nsA(i,l)„OEL 

88 

81 

8S 


55 

IF (N.NE.l) 

68 

82 

81 



5 GO TO 40 

89 

0 

0 

c 

SUBROUTINE CalCEV CALCULATES EIGENVALUES OF XXI OR 2X2 HATRICESi 

90 

0 

0 

c 

PI 

IS added back in CALCEV 

91 

83 

8? 


47 

CALL CALCEV tA,NMAX»DEL*VEC*IJK ,Ntl J 

92 

84 

83 



GO TO 76 

93 

85 

84 


46 

IF CN.NE.g) 

93 

86 

65 



S GO TO 80 

v4 

87 

86 


49 

CALL CALCEV(A,nmAX,DELiVECiIJK,N,2I 

95 

BB 

87 



GO TO 76 

96 

0 

0 

c 

QR 

TRANSFORMATION STARTS HERE 

97 

0 

0 

c 

INITIALIZE FDR DETERMINING SUBSEQUENT SHIFTS 

98 

B9 

B8 


80 

ARlaO.O 

99 

90 

89 



AR3=0.0 

IDO 

91 

90 



AR4=0*0 

Inl 

0 

0 

c 

RE- 

enter after REALIT or COMpiT SUBROUTINES CALLED 


i %■ 

^ Ct 

tiv.-: 

fr; 

4;.' 

.F^^ECT^;5T^ST i'7r.90) EJ-'^MJ^NT F:P9«, BOTV^n*"-. . . .. n . 







l03 

92 

91 


l04 

93 

92 


lf>5 

94 

93 


166 

95 

94 


1q6 

96 

95 


107 

97 

96 


1 n6 

0 

0 

. 

109 

90 

97 


l09 

99 

90 


110 

100 

99 


111 

101 

100 


112 

102 

101 


113 

103 

102 


113 

104 

103 


114 

105 

104 


115 

106 

105 ■ 


116 

107 

106 


117 

0 

0 


110 

0 

0 


119 

0 

0 


120 

lOB 

107 


121 

109 

100 


122 

uo 

109 


123 

111 

iio 


124 

112 

111 


124 

113 

112 


125 

114 

113 


126 

115 

114 


127 

116 

115 


120 

117 

116 


129 

110 

117 


129 

119 

118 


130 

120 

119 


131 

121 

120 


132 

122 

l2l 


133 

123 

122 


134 

124 

123 


135 

125 

124 


136 

126 

125 


137 

127 

126 


130 

128 

127 


139 

ia9 

120 


139 

130 

129 


140 

131 

130 


lAl 

132 

131 


142 

133 

132 


143 

134 

^ 33 


143 

135 

134 


144 

136 

135 


145 

137 

136 


146 

130 

137 


147 

0 

0 


146 

139 

13B 


140 

140 

139 


149 

141 

140 


150 

142 

141 

1 

151 

143 

H2 


152 

144 

IA3 

. 

152 

145 

144 

0) 

153 

146 

145 

7 \ 

154 

147 

14(S 


155 

148 

1*7 


61 U»N 

0056 I^2fN 
N2IaN+2-I 

IF( ABSlA(N2I,N2I-l) J iLT, DELTA) 

SGO To 57 

56 LpL-1 

c value of l selected 

57 IF tL.NE.N) 

5 GO TO 59 

50 call CALCEV(A,NMAX»DELiVECpIJKiNtl) 

N=N-1 
GO TO 48 

59 IF ( (L-N»U iNE.O) 

S GO TO 75 

60 call CALCEVIA,NMAXiDELiVEC»IJK»Ni2) 

N=N-2 

60 TO 55 

C DETERMINE EIGENVALUES OF 2X2 MATRIX — ROW I ■ A(N-1*N-1) 
C ROW 2 a AlNtN-U 

C AND base shift ON THESE 
75 H=A(N-ltN-iJ*A(NtN) 

C=AtN-liN-l)*A(NiN)-A(NfN“l)*A{N-l*Nl 

C1=A(N-1,N-1)-A(NiN) 

OISC!!Cl*Cl+4.0<tA(NiN-l)#A(N-l,N) 

IF tOlSC.GE.O.) 

S GO TO 63 

62 Rl=0i5*8 

H2a.5« SURT( AaS(DlSC) ) 

AnUMs (R1-AR3) *(R1-AR3) + (R2-AR4) » <R2-AR4) 
UEN0M=AH3*AR3+AP4»AR4 
IF (DENOM.NE.O.) 

S GO TO 200 
201 RHO-0.0 
SIGHA-0.0 
GO TO 203 
200 RHO=C 
5IGMa=B 
203 AR3aRl 
AR4»R2 

CALL COMPiT(AiNHAXiLTNiRnOtSIGMAJ 
60 TO 61 

63 IF (B.GE.o.) 
t GO TO 65 

64 Rl=,5*(B- 5QRT(DISC)) 

GO TO 66 

65 Rl“t5*(B+ SQRT(DISC)) 

IF (RI.NE.O.) 

$ GO TO 66 
03 R2S0.0 
GO TO 04 

66 R2=C/R1 

C HOOTS OF 2<t2 MATRIX FOUND 

B4 1F{ ABS(A{NtNl-Rl) .BE. ArS ( A (N,NJ -R2) J 
^GO TO 6B 

67 AR2=R1 
60 TO 69 

68 AR2=RH 

69 IF IARI.NE.O.) 

S GO TO 71 

72 SHiFTtO.O 
GO TO 73 
71 ShIFT=AH2 


A(N-ltN) 
A (NtN) 


156 

i >9 

148 


73 ARlaARH 

157 


149 


CALL REALIT IA,r>lMAXiL^NiSHlFTiCC»SSl 

15B 


150 


eo TO &i 

159 

0 

n 

C 

are vectors needed 

160 

1S2 

151 


76 IF (NVECtEQiOl 

160 

153 

152 


S GO TO 600 

161 

0 

0 

c 

inverse iteration is used for eigenvectors 

162 

154 

153 


550 SMALL=DELTA*1,0E-30 

163 

155 

154 


nuh=o 

164 

156 

155 


JI»1 

165 

1ST 

156 


nm=nn+nn 

166 

0 

D 

c 

cl is HEAL PART OF EIGENVALUE 

167 

15S 

157 


513 ClsVECUI) 

168 

0 

0 

c 

C2 IS complex part of eigenvalue 

169 

159 

156 


C2=VEC(JI+1) 

170 

160 

139 


NUH=NUM+1 

171 

0 

0 

c 

REPLACE HESSEnBURG MATRIX AND MULTIPLIERS 

172 

161 

160 


DO 570 1=1 tNN 

173 

162 

16f 


DO 570 J=liNN 

174 

163 

162 


570 A(ItJ)=D(ItJ) 

175 

164 

163 


IF (Ca.NE.O.J 

175 

165 

164 


S 60 TO 561 

176 

166 

165 


CALL RVEC(A»NMAX»INTiCliSMALLtNNfNUH»ElGVEC*NVEC»CCtSS) 

177 

167 

166 


JI=Jl+2 

170 

16B 

167 


IF(NV£C.EQ.NUM} 

178 

169 

168 


SGD TO 600 

179 

170 

169 


GO TO 513 

IfiO 

171 

170 


561 call IMVEC tA»NHAXi INTiCl»C2i5MALL»NNfNUHiEIGVEC»NVECiCCiSSiZ*0B) 

lai 

0 

0 

c 

NEXT statement IGNORES CONJUGATE COMPLEX EIGENVALUES 

102 

172 

171 


JI»JI+4 

183 

173 

172 


XF(NVEC*EQ.NUH) 

183 

174 

173 


SGO TO 600 

184 

175 

174 


GO TO 513 

185 

176 

ITS 


600 RETURN 

166 

177 

1 


END 



mm wm mm mm ms 

A 


SOURCE PROGRAM LISTING 


$ IN THE LABEL FIELD INDICATES THE EXPANSION 
OF THE logical IF STATEMENT ON THE PREVIOUS LINE 



line 

STMT 

block 


SOURCE 


228 

1 

1 


Subroutine REALiTiA,NHAXtL»NiSHiFT»CiS) 

J 

229 

2 

1 


DIMENSION AlNMAXiNMAX) iC(lJ iSn » 


230 

3 

2 


IF tSHiFT.EQ.O.l 


230 

4 

3 

1 

E GO TO 2 


231 

5 


1 

003 I=LfN 


232 

6 

5 

3 

A(IiI)=A(l,I)«SHlFT' 


233 

7 

6 

2 

H=N-1 


234 

8 

7 


004 I=L»M 


235 

9 

8 


OENOM= SURT(A(Iin4»2*A(I*i»i)*<^Hl 


236 

10 

9 


IF idenom.gt.o.) 


236 

11 

lo 

( 

E GO TO 10 


237 

12 

ll 

il 

CtDal.O 


238 

13 

12 


StiJeO.O 


239 

14 

13 


60 TO 4 


240 

15 

14 

10 

C(I)=AatIl/DENOM 


241 

16 

15 


S{I)=A{1*i,I)/deN0H 


242 

17 

16 


A(If I)=DE nOM 


243 

18 

17 

12 

11=1*1 


244 

19 

18 


00 35 J=IltN 


245 

20 

19 


F«A(I*J1 


246 

21 

20 


A(IiJ) »A ll + l(,jj#S(I) *F«CfIl 


247 

22 

21 


A ( I * n J 1 *A ( I * 1 1 j 1 <*C { I) -F«-S ( 1 1 


240 

23 

22 

35 

continue 


249 

24 

23 

4 

continue 


250 

0 

0 

C 

triangular matrix formed 

> 

251 

25 

24 


005 J»L*H 


252 

26 

25 


006 I=L»w 


253 

27 

26 


FaAtljJ) 


254 

28 

27 


A (I»J) =A )»S<J>*F»C(JJ 


255 

29 

28 

6 

A (1 1 J*1)=A (IiJ+l)#C(J)-F4StJ) 


256 

30 

29 


Atu*l tJ)=A(J*l,J*l)»S(J] 


257 

31 

30 

5 

A (J*l * J^l ) *sA(J*l 1 J + 1) »C tJ) 


258 

0 

0 

C 

transformation completed 


259 

32 

31 


IF tSHIFT.EQ.O. J 


259 

33 

32 


5 RETURN 


260 

34 

33 

7 

U09 I=UtN 


261 

35 

34 

9 

A( 1,1) till) *SHIFT 


262 

36 

35 

0 

return 


263 

37 

1 


END 




¥ 

7C 






SOURCE program LISTING 



S IN THE label field INDICATES THE EXPANSION 
OF THE L06ICAL IF STATEMENT ON THE PREVIOUS LINE 


V. 


LINE 

STMT 

block 

SOURCE 



264 

1 

1 

SUBROUT INE COHPIT ( A * NHAX i L i N iRhO » SI GMA ) 



265 

2 

1 

dimension A(NMAXtNHAX) 


V 

266 

n 

0 

C householder TYPE MATRICES USED INSTEAD OF ROTATIONS (SEE FRANCIS PAPER) 


267 

3 

2 

M«N*»1 



268 

4 

3 

DO 1 I=LtH 


V 

269 

5 

4 

IF (I-NE.U 



269 

6 

5 

5 GO TO 3 



270 

7 

6 

2 Sl^AtLfU*{A(L»L)-SIGMA)*A(L*L*l)*A{L*liL)*RHO 



271 

8 

7 

B2=A(L + 1iU*(A(L»L) +AiL+l»L*l) -SIGMA) 


C! 

272 

9 

B 

B3i=A(L+liL>*A(L+2fL+l) 



273 

10 

9 

A (L+2tL) 30,0 


■j; V 

274 

11 

10 . 

Go TO 6 



275 

12 

11 

3 Hl=A(ItI-l) 



276 

13 

12 

a23AU + liI-l) 



277 

14 

13 

IF (I.EO.M) 



277 

15 

14 

S GO TO 5 

O 


2 ?a 

16 

15 

4 83sA(I+2f I-l) 


’ V 

279 

17 

16 

Go TO 6 



280 

18 

17 

B B330.0 



281 

19 

IB 

6 D= 5QRT(B1*B1*B2*B2+B3*B3) 



282 

20 

19 

IF (BI.Ge.o.) 



282 

21 

20 

* GO TO 8 

^ S 

HH hri 


203 

22 

21 

7 0=-D 


A 

204 

23 

22 

8 IF {D*£0,o.) 



284 

24 

23 

S-GO TO 1 

RS ■ 


285 

25 

24 

9 Cia02/lD*BD 



206 

26 

25 

C2=B3/(D»BU 


■ ' 

287 

27 

26 

E=2,0/(1.0+CX#C1+C2*C2) 



288 

28 

27 

DO 10 K»I*N 


V 

209 

29 

28 

IF (I*Ey,H) 

fc Q 


209 

30 

29 

S GO TO 12 



290 

31 

30 

11 QxE4(AlI,K) *Cl*AiI*l,K) *C2*A[I*2fK) ) 

fcH 

V 

291 

32 

31 

A(I»K)xAlIiK)— G 

K m 


292 

33 

32 

A (I + 1 , K 1 X A ( I + 1 1 K ) -C 1»Q 



293 

34 

33 

A ( I*2»K] sA (I+2,K)-C2ttG 


v‘ 

294 

35 

34 

Go TO 10 



295 

36 

35 

•■12 S = E*»tAlI,K)+Cl«A(I + liK)) 



296 

37 

36 

A (I iK)3A(i,Kl-G 


4 

297 

38 

37 

A (I + l i«)“A (I + liK)-Cl<*6 



290 

39 

38 

10 CONTINUE 



299 

4 0 

39 

IF (I.EO.L) 


V_ 

299 

41 

40 

S GO TO 14 



3oO 

42 

41 

13 An»I-lJ3-D 



3,1 1 

43 

42 

A(I+l*I"l J=0i0 



3n2 

44 

43 

IF (ItEO.M) 



3i'2 

45 

44 

S GO TO 14 


• 

3o3 

4 6 

45 

15 A(I*2tl-l)sO.O 


1 V. 

304 

0 

n 

C HOW OPERATION COMPLETED 



3ns 

47 

46 

14 JxI+2 




V. 




366 

46 

47 

IF [ JrLE*N) 

306 

49 

49 

S GO TO 17 

307 

50 

49 

16 J=N 

3oti 

51 

50 

17 DO 18 K«U,J 

36 9 

52 

51 

IF {I.EQrH) 

369 

S3 

52 

S GO TO 20 

310 

54 

53 

19 GsE*lA(K,i)+Cl»A«KiI*l)+c2ttA{KtI+21 ) 

311 

55 

64 

AlK«tl)KA(KiI)-Q 

3ia 

56 

55 

AlKiI + DsAlKtl-^ll-Cl^G 

313 

57 

56 

A(KiI+2)sa(KiI+2)-C2*G 

314 

59 

57 

GO TO 19 

315 

59 

58 

20 G=E«UlK,i}+Cii^A{K»I*l) 1 

316 

60 

59 

A(K»I1=A[k»I}-0 

317 

61 

60 

AtKiI*l)=MKiTtl)-ci»G 

31 a 

62 

61 

18 CONTINUE 

319 

63 

62 

J=I*3 

320 

64 

63 

IF tJ.GT.Nj 

3S0 

65 

64 

? GO TO 1 

321 

66 

65 

21 G=E»C2*A ( 1+3, 1+2) 

322 

67 

66 

Atl*3ilJ=-G 

3?3 

6B 

67 

A(l*3tI*lja-Cl«G 

3?4 

69 

68 

A(I+3tI*21=AtI*3tI+2)-C2»G 

325 

0 

0 C 

COLUMN OPERATION COMPLETED 

326 

70 

69 

r CONTINUE 

327 

7i 

70 

retuhn 

328 

72 

1 

END 




pT 



1 





5 IN THE LABEL FIELD INDICATES THE EXPANSION 
OF THE logical IF STATEMENT ON THE PREVIOUS LINE 



LINE STMT block SOURCE 



339 1 1 Subroutine rvec(a*nmaxiInTiCi,smalliNinumiEIqvec»nveciinteriyi 

330 2 1 dimension A(NHAXiNMAX)tINTER(l)iY(l)tlNT(U*ElGVEC(NMAX»NHAX1 

331 3 2 DOl I-liN 

332 A3 1 A(IiI}sa|i»I)-C1 

333 5 A 002 I=2»N 

33A 6 S' IF( ABS{A(I-l,I-in ,GE, ABS ( A ( I » I-l) J 1 

334 7 6 SGO TO A 

335 a 7 3 INTER{IJ»1 

336 9 8 J=l-1 

337 10 9 Dos K«JiN 

338 U lo B=AtX-lfK} 

339 12 U A(I-l,K)=AaiK) 

3A0 13 12 S A|IiK>=a 

3A1 14 13 GO TO 6 

342 15 14 4 iNTERtlUl-l 

343 16 15 6 IF (A(ltl-l) , eQ.O.) 

343 17 16 S GO TO 2 

344 IB 17 C=!-A(Ii I-1)/A(I-1iI-11 

345 19 18 Adtl-lJaC 

346 20 19 DO 8 K=I»N 

347 21 20 fl A(ItKJsA(i,K)+CrtA(l-l,K) 

348 22 21 2 CONTINUE 

349 n 0 C triangular matrix FORMED 

350 23 22 009 I^ltN 

351 24 23 IFI ABS(A(If ni ,QE*SHALU 

351 25 24 $S0 TO 9 

352 26 25 10 AlItllxSMALL 

353 27 26 9 CONTINUE 

354 0 0 C normalised I (EIGENVECTORJ) of HESSENBURQ matrix obtained FOR RHS « 1 

355 28 27 DO 5555 I=1»N 

356 29 28 5555 Y(I)=1.0 

357 30 29 DO 8888 JJJJ»l,4 

358 31 30 7777 Y (N 1 =Y ( I4) /a IN |N) 

359 32 31 asY(N) 

360 33 32 Doll Ic2»N 

361 34 33 EsO.O 

362 35 34 McN+l“I 

363 36 35 D012 J»2jl 

364 37 36 L=N«-J-1 

365 38 37 12 Ei«E+Y f U «A (MiL) 

366 39 38 Y fM) * lY (M) -E) /A IMiM) 

367 40 39 IFC ABSIBJ.GE, ABS(YIHJI) 

367 41 40 *60 TO U 

368 42 41 13 B=Y(M) 

369 43 42 11 CONTINUE , 

370 44 43 D014 I^liN 

, ikP 371 45 44 14 Y (I)=Y(I)/a 

^ 372 46 45 IF { JJJJ.EQ.41 

372 47 48 SGO TO 6666 




jOOVft ' I'.'T iC AiU,; 


373 

4B 

47 


D0l5 I=2*N 

374 

49 

48 


IF CINTEH(I) ,NEiI) 

374 

50 

49 


S 60 TO 15 

375 

51 

50 


16 BaY(I) 

376 

52 

51 


Y(I1«YU-1) 

377 

53 

52 


Ya-ll=0 

378 

54 

53 


15 Y(I)=Ym+A{I.I-l}*Y( J-1) 

379 

55 

54 

8888 CONTINUE 

380 

0 

0 

C 

eigenvector of HESSENBURG matrix OpTAlNED (NOT NORMALIZED) 

381 

56 

55 

6666 M=N-I 

382 

S7 

56 


□021 la2iM 

363 

58 

57 


J=N+1-I 

384 

59 

58 


L^J+l 

365 

60 

59 


□ 020 K=:LiN 

386 

61 

60 


20 Y(K)aY(K)-Y(J)#A(KiJ-l) 

3BT 

62 

61 


LL=INT(N-I) 

388 

63 

62 


IF (J*EQ*LL) 

368 

64 

63 


S 60 TO 21 

389 

65 

64 


19 BsY(J) 

390 

66 

65 


Y[J)=Y(UL) 

391 

67 

66 


Y tLU=B 

392 

66 

67 


21 CONTINUE 

393 

0 

0 

C 

UNN0RMALI2ED EIGENVECTOR OF ORIGINAL MATRIX OBTAINED 

394 

69 

68 


6=0.0 

395 

70 

69 


D022 I~liN 

396 

71 

70 


IF{ ABS(H1,6E* ABS{Y(I))) 

396 

72 

71 


S60 TO 22 

397 

73 

72 


23 B=Y(I) 

398 

74 

73 


22 CONTINUE 

399 

75 

74 


D024 I=ltN 

400 

76 

75 


24 Y(I)3Y(I)/b 

40l 

0 

0 

c 

normalized EI6ENVECT0R OBTAINED 

4(i2 

0 

0 

c 

PUT Y(I> (REAL EI6ENVECT0R) IN EIGVECT (NUHOFEVt I) 

403 

77 

76 


DO 100 I^iiN 

4Q4 

78 

77 


100 EIQVEClNUMtUiiYd) 

405 

79 

78 


return 

4n6 

80 

1 


END 


o 










■J 


fcAfc>? :*»w ?~i 


f :-■ ■ \ 








SOURCE PROGRAM LISTING 






S IN THE LABEL FIELD INDICATES THE EXPANSION 
OF THE logical IF STATEMENT ON THE PREVIOUS LINE 


KsBI 


Nf- 




LINE 

STMT 

RLOCK 

SOURCE 


V,;;: 


4n7 

1 

1 

SUBROUTINE IHVEC ( A |NHAX» INt»C1 ,AHU»SHALLiNiNUHiEIQVEC»NVECi INTER* 



A 08 

1 

1 

CYfZiB) 


S:i 


4o9 

2 

’1 

DIMENSION A(NHAXiNMAX} » INTER { 1 } i Y 1 1 1 i Z ( i J i INT t 1 ) » 

B(NMAXiNMAX) 1 



410 

2 

1 

CEIGVEC(NMAX*NMAX) 




411 

3 

2 

DO50 I«1jN 


%'s 


412 

4 

3 

Oq50 J— 1*N 




413 

5 

4 

50 B(IfJ}r:Q,o 




414 

6 

5 

DOl I=liN 


Vi 


41S 

7 

6 

AtIiH=A(I,I)-Cl 




416 

a 

7 

1 B(I»IJ=B(I,1)-aMU 


- 


417 

9 

8 

D02 I=2tN 


Vi 


416 

10 

9 

c=A(i-iti-i]4An-iii-i) +aa-i» 1 - 11*8 (i-iii-n 




419 

11 

lo 

DrAtItI-l)«A(IiI-l)+B (ItI-ll*B(ItI-ll 




420 

12 

11 

IF [C.6E.D1 


* <i 


420 

13 

12 

$ GO TO 4 




421 

14 

13 

3 INT£H(I1=I 


'■ 


422 

15 

14 

G=C 


- V 


423 

16 

15 

CbD 




424 

17 

16 

ObG 

9S 



425 

18 

17 

jBl-1 


z • 


426 

19 

la 

DOS KcJfN 




427 

20 

19 

a=A { l“i f K) 

93 



42B 

21 

20 

AtI-liKl»An»KJ 

S 

- ; 


429 

22 

21 

A(liK)>Q 




43n 

23 

22 

QbB(I-1 pK) 


r, . 


431 

24 

23 

H [I-ltK)=n(IiKl 


w 


432 

25 

24 

5 BdiKIsG 

S Q 



433 

26 

25 

GO TO 6 



- 

434 

27 

26 

4 lNTERtI)»l-l 


H 


435 

2B 

27 

6 IF (DiEQ.O.) 



435 

29 

28 

S 60 TO 2 




436 

30 

29 

7 e=A(I»I-l) 


V 


437 

31 

30 

A tl»I-lJ*- iO*jvtl-liI-l)*R lit 1-11*8(1-1 il-ll )/C 




438 

32 

31 

a ( I f I-l I 3- (S ; j , i-1 1 *A ( I-l , I-l ) -Q*B ( I-l i I-l) ) /C 




439 

33 

32 

008 K«I»N 




44 0 

34 

33 

A{I»lOBA(l,KI + AlItI-l)*A(I-l»Kl-B(IiI-l)*H(l-liK) 




441 

35 

34 

g H(IiK)=B (I,K)<.BlIiI-l)«A(l-l,Kl ♦AlItI-ll*B{I-liKl 




442 

36 

35 

2 continue 




443 

0 

0 

C TRIANGULAR MATRIX FORMED 




444 

37 

36 

D09 I=liN 




445 

38 

37 

C=A(IiI)*A(ItI)+B(I,I)*8tI»I) 




446 

39 

3B 

IF tC.GE. SMALL) 




446 

40 

39 

S GO TO 9 




447 

41 

40 

A(I»I)= SORT (SMALL) 


% 


448 

42 

41 

d ( I » I ) BQ«g 




449 

43 

a2 

9 CONTINUE 




450 

44 

43 

DO Ull lal.N 


r 

7i 

451 

45 

44 

Y (I)=l.O 




452 

46 

45 

Ull ZCI)«0,0 












<^53 

47 

46 


DO 8886 JJjBlt4 

454 

48 

47 


C3ACN»N)*A{NtNl *8 (N»N) *B (N,N) 

455 

49 

48 


QsY(N) 

456 

50 

49 


Y(N)={G«A(NiNJ+Z(NJ«B INiNll/C 

<V57 

51 

50 


Z (N) = lZ{N)4A(N*Nl-Q»BtNiNl )/C 

458 

52 

51 


0017 I=2»N 

459 

53 

52 


E=0.0 

460 

54 

53 


FaOeO 

461 

55 

54 


M=N+1“I 

463 

56 

55 


DOla Js2il 

463 

57 

56 


L^N+vl-I 

464 

58 

57 


E=E + Y (L)«A (MtUI "Z (L)»B (H,L) 

465 

59 

58 

IS 

F=F + YlL)»BtMiL>+ZtU»A(M,U 

466 

60 

59 


DsA(HtM)*A{MiMl+BiMiM)48(HiH) 

467 

61 

60 


G=Y (Ml 

468 

62 

61 


(0-E}«A(HiH) *<Z(M1-F)^*B(M»M1)/D 

469 

63 

62 

17 

Z(Mlal(Z{M)-F)*AtM*H)“(G-El «0[MtMn/O 

470 

64 

63 


£-0.0 

471 

65 

64 


0051 I=1»N 

473 

66 

65 


FsYm*Y(n+z(i)«zn) 

473 

67 

66 


IF tE.GE.n 

473 

68 

67 


E GO TO 51 

474 

69 

68 

52 

E=F 

475 

70 

69 


L^I 

476 

71 

70 

51 

CONTINUE 

477 

73 

71 


AlsY(L) 

470 

73 

72 


A2»Z(L) 

479 

74 

73 


0014 I=lfM 

4S0 

75 

74 


GsY(I) 

481 

76 

75 


Y{I JatG<»Al+Z(l)*A21/E 

462 

77 

76 

14 

Zm»=tZ(Il»Al-G*A2)/E 

483 

78 

77 


IF{JJJ.EQ.4) 

463 

79 

70 

1 

E GO TO 6666 

484 

80 

79 


0015 I*»2»N 

465 

81 

BO 


IF nwTERdl .NE*I) 

465 

82 

81 


E GO TO 30 

486 

83 

02 

16 

GttY(I) 

487 

84 

83 


Y(n»Tii-i) 

48B 

85 

84 


Y(I-1}»Q 

489 

86 

as 


G-Z(I) 

490 

87 

86 



491 

66 

87 


Z (I-l)-G 

492 

89 

68 

30 

Y(I)=Y(I1+A(I»I*1}*Y(1-U-B[IiI-1J*ZU-1) 

493 

90 

89 

15 

z(i)=z(ii+B(i»i-i>»vti-ii +Aiiir-iJ^za-i) 

494 

91 

90 

sees 

CONTINUE 

495 

0 

0 

c 

EIGENVECTOR OF HESSENBURg MATRIX OBTAINED 

49b 

92 

91 

6666 

M=N-1 

^97 

93 

92 


0021 ls2*M 

498 

94 

93 


J=*N-fl“I 

499 

95 

94 


L^J+1 

500 

96 

95 


0030 K=LtN 

50l 

97 

96 


Y{K1=Y (K1-Y(J)»A(KiJ'1)+ZU1*B(K.J-1) 

5oE 

98 

97 

20 

Z{M=Z (K)-2(J)4A{KiJ-11-Y(J)4B1K»J-1J 

503 

99 

98 


i.U=INT (N-i I 

504 

100 

99 


IF tJ*EQ.LL> 

504 

101 

100 


i GO TO 21 

505 

103 

101 

19 

bsY (J) 


103 

103 


Y(J>=Y|LL> 

507 

104 

103 


Y (LL1=G 

508 

105 

104 


G*Z(Jl 

509 

106 

105 


Z(J)»Z|UL> 

51 n 

. 107. . 

10.6 


. .. ... - .... 

i», — .. 

T '"1 


^ ...4 4 ..,, > 1 .—. : 



13K 




E- 

rr^ 

L "i.-: J 


Zl Xti.r ."-' S C 4 0 -. i j li-'r.-TVI-J J 

511 

108 

107 

21 

CONTINUE 

512 

0 

0 

C 

UNN0RMALI7ED EISEMVECTOR OBTAINED 

513 

109 

106 


EsO.O 

51-^ 

110 

109 


0022 I=»liN 

515 

111 

llO 


F=V{I)*y(I)*Z(I)*Z(I) 

516 

112 

111 


IF tE.GE.F) 

516 

113 

112 


E GO TO 22 

517 

114 

113 

23 

EaF 

518 

115 

114 


L = I 

519 

116 

115 

22 

CONTINUE 

520 

117 

116 


A1=Y(L) 

5?1 

iia 

11-7 


A2=Z(U 

522 

119 

IIB 


D024 iBliN 

523 

120 

119 


0=Y[I) 

524 

121 

120 


Y(I)=(G*Al+ZII)#A2)/E 

525 

122 

121 

24 

Z(I)=CZ(I)«A1-G«A21/E 

526 

0 

0 

C 

normalized eigenvector ostained 

527 

0 

0 

C -PUT 

Y{l) (REAL PART) IN E IGVECT (NUMOFEV 1 1 ) ' 

5?8 

123 

122 


DO 100 1=1, N 

529 

124 

123 

100 

EIGVEC(NUM,I)=VII) 

53 0 

125 

124 


NUHsnuH*! 

531 

0 

0 

C PUT 

2U) (COMPLEX PART) IN El GVECT (NUMOFEV » I ) 

532 

126 

125 


DO lOl 1=1, N 

533 

127 

126 

101 

EIGVEC(NUM,I)*Z (H 

534 

128 

127 


return 

535 

129 

1 


END 



JL ■; 

H ■' 
O r 

o;i 

..of 

. u ;! 


; 6'^ 






t2!V33DNll'lt 


14-K 




CALL GRAPH TABLE ENTRIES 


SUBPROGRAM NAME- UNSEI6 

PROCESSED AS ITEM NUMBER 1 IN THE INPUT FILE 

number of external calls- 5 

NAMES OF Called 
IHVEC 

calcev 

COMPiT 

realit 

RVEC 

NUMBER OF CALLERS- 0 

subprogram name- calcev 

PROCESSED AS ITEM NUMBER 2 IN THE INPUT FILE 

NUMBER OF EXTERNAL CALLS- 0 

NAMES OF CALLERS 
uNSEie 

subprogram name- COMPIT 

PROCESSED AS ITEM NUMBER 4 IN THE INPUT FILE 

NUMBER OF EXTERNAL CALLS- 0 

NAMES OF callers 
UNSEIG 

SUBPROGRAM NAME* REALIT 

PROCESSED AS ITEM NUMBER 3 IN THE INPUT FILE 

number of external calls- 0 

NAMES OF callers 
UNSE lG 

subprogram name- HVEC 

processed as item number 5 IN THE INPUT FILE 

NUMBER OF EXTERNAL CAULS- p 

NAMES OF callers 
UNSEIG 

SUBPROGRAM NAME- IHVEC 

PROCESSED AS ITEM NUMBER 6 IN THE INPUT FILE 

number of external calls- & 

NAMES OF Callers 
unsetg 

NEXT LEAF IS FILE ENTRY NUMBER 2 

NEXT leaf is file ENTRY NUMBER 3 

NEXT leaf is file ENTRY NUMBER A 

NEXT leaf is file ENTRY NUMBER 5 

next leaf IS FILE ENTRY NUMBER ft 

NEXT leaf IS FILE ENTRY NUMBER 1 

PHASE! complete 

PHASES COMPLETE 


IN the INPUT FILE 


IN THE INPUT FILE 


IN THE INPUT file 


IN THE INPUT file 


IN the INPUT FILE 


diagnostics FOR PROGRAM UNIT 


CALCEV 


##*4**444 MO ERRORS 


•> P'-'e-i- t '"- ';a C-tr— j!— -■■r-'vfl 



Cl 

c 


-J 


!] 





[=--<3 




15 k 


t > ^ . U,„J 

««»«•«««#»«»««<»•« 


-i 




C‘--3 


nIAGfJOSTiCS FOR PROGRAM UNIT 


realit 


*♦*»#««** NO ERRORS 


***»*«•#*»#**#»«««* ##»««*«#**«#«*•»«.»■###*###**#*»##*** 
nlAGNOSTlCS FOR PROGRAM UNIT COwPlT 


NO errors 


<*<»«« »•»»#««««»*« *«•»•*»«««« ft A 

DIA6N0STICS FOR PROGRAM UNIT RVEC 


********* NO ERRORS 


»»*<»«« »«««««*««#«««««**«««««««•*«« 
diagnostics FOR PROGRAM UNIT IMVEC 

*•««»«*«* NO ERRORS 


diagnostics for program unit unseig 

**<HHtin**» NO ERRORS 


9S 

^ Q 

o ^ 



«*«»««««« »■»*#*«#**»**<»««#»*#**«*»* 

diagnostics FOR PROGRAM UNIT CALCEV 


into #»*«»*«#»« #**#*#*##«« ♦»*«#**#*»«*•*#*»»* 

#*«*«WARNING no, 27 

THE local variable NAMED C IS ASSIGNED A VALUE IN 

BLOCK 11 and is assigned A VaLUE THEREAFTER BEFORE ANY INPUT 
USE OR IS NOT SUBSEQUENTLY USED AS INPUTi ON SOME PATHS, 

ONE SUCH pATHi INDICATED 8Y BftSIC BLOCK NUMBERS, IS 
11 12 13 lA 15 3 a 35 36 3^ 30 

39 An A» a2 






diagnostics for program Unit realit 

MO warnings 

««#«♦*«■»#«*««•«’ <hh»*<mhhhhhmhh**«***h» «■*#*«■■»■»«»■»*■»»«»** 

diagnostics for program unit COmPIT 

*#»##**«* MO WARNINGS 


* # 4 -tt iHHUHHHHHUHHUH* 44-» tt « 4 tt 4 4 ft 4 4 4 4 4 * 4 # * 4 * * 4 4 # 4*4 4 « * 4 * 4 4#* » # » 4 «•» 4 4 4 

diagnostics for program unit rvec 


I rf - — ' 


I 

f 

! 

I 

i 

i 


44#4444**4444*4#44444«»4##4444444444««44*44#444»44444tt44444444tt4# 

44444KARNING NO. 19 

A VARIABLE IN A PARAMETER LIST IS USED FOR NEITHER INPUT NOR 
OUTPUT. 

NAME OF variable NyEC 

4444 44 * 44444444444444444444444 * 444444444 4444444444ft 4444«444ft44ft44 
tt4ft4ftft»»ft<>4 444tt4ft4444ftft4ft44*4«444«4ftft4ftOtt44*ft4ft444ft»4ft4«ftft444fttt*ft 
ttftft0»40 44«4444444ft44ft4ft4ft4444»44444ft»444 4444*44444ftft4i^<HHHH»fr<HHH»ft 

diagnostics for program unit imvec 


.1 

i 

] 


444##444* 444*444##** *44 *«*«•«**■» 44 »444**«44ft»444«4*#*ft44 **«»#*»■»** 

#**4*waRNING no. 19 

A VARIABLE IN A PARAMETER LIST IS USED FOR NEITHER INPUT NOR 
OUTPUT. 

NAME OF variable NVEC 

«4««*44»44U44***4*444*U 4**4 4444 44 44444** ***444 4 * 44 44444 44*4 44 *44* 


4#*444*#*44**4*#44##4444 444*44 #44 #4*#444##44 444444 4444*4444*44*44 

4**44waRNInG no. E7 


(5) 


THE LOCAL VARIABLE NAMED C IS ASSIGNED A VALUE IN 

BLOCK 15 AND IS ASSIGNED A VALUE THEREAFTER BEFORE ANY INPUT 
USE OR IS NOT SUhSEUUENTLY USED AS INPUT* ON SOmE PATHS, 

ONE SUCH PATH* INDICATED BY BASIC BLOCK NUMBERS, IS 
15 16 17 la 19 2o 21 22 23 2A 

25 27 2B 35 36 37 


J.T- • ^-^44*2 -■ ■■'?444^' f44 4tr'' - -t?#**!''’'--' ^4#4<*’ >4ft4J '?»44<r-- :■ 


n .,: :J 











.-.-1 L_ia iAlti- J— 


I7K 


-4 


-:y 












r 




• «**«««««««*«#««« tt«««««*««««4t»««««»«««tt«»»«tt»**»*tt«»9«««««ft'l»1^«««« 

****#MARWING NO. 27 




THE local variable NAMED L IS ASSIGNED A VALUE IN 

BLOCK 114 and is ASSIGNED A VALUE THEREAFTER BEFORE ANY INPUT 
USE OR IS NOT SUbSEUUENTLY USED AS INPUTi ON SOME PATHS, 

ONE SUCH PATHt INDICATED BY BASIC BLOCK NUMBERS, IS v* 

114 115 110 111 113 lU 

* # * « * O * « * « fr * -» e « * -tt -IHMMHHMUHHHHHHHt O ■« « Ht # 


DIAGNOSTICS FOR PROGRAM UNIT UNsEIG V 

j 


**»«*W4RNING NO, 16 STATEMENT NO, 150 BASIC BLOCK NO* U9 V 

CORRESPUndINQ arguments in THE PARAMETER LISTS ARE OF *■ : 

different dimensionality, 


ARGUMENT POSITION 
NUMBER OF DIMENSIONS 
NAME OF ARGUMENT 
KIND OF argument 
INPUT CLASS 
OUTPUT CLASS 


CALLING SUBPROGRAM 
UNSEIG 
6 
0 

cc 

IDENTIFIER 


called subprogram 
realit 
g 
1 

c 

NON INPUT 
STR. OUTPUT 




V' 


V 


A fi« «««««««««*««««««#*•« 

*hh****WaRNING no. 16 statement no. 150 BASIC BLOCK NO, 149 

corresponding arguments IN THE PARAMETER LISTS aRE OF 
DIFFERENT DIMENSIONALITY. 

calling subprogram called subprogram 



UNSEIG 

realit 

ARGUMENT POSITION 

7 

7 

number of dimensions 

0 

1 

NAME Of argument 

SS 

s 

KIND OF argument 

Identifier 


INPUT CLASS 


NON INPUT 

output class 


STR. OUTPUT 




. V 




V 



V- 


♦ <HH, •«««» -iHH* **###»####* -tMMt #*«« IMH* #••#*««* in* B * -ft #*##** tt * <HM- * * 

BBftBBWAflNiNG NO, 10 STATEMENT NO, 166 BASIC BLOCK NO, 165 

corresponding arguments In the parameter lists are of 
different data types. 


calling subprogram 
UNSEIG 
10 


CALLED subprogram 
RVEC 
10 






V 


ARGUMENT POSITION 


- tTV Of 


^81 



DATA TYPE REAL INTEGER 

NAME OF argument CC INTER 

KIND OF ARGUMENT IDENTIFIER 

INPUT class non input 

OUTPUT CLASS STfl.OUTPljT 


**« tM» tt e •#****# ##****»*«#«»»**<»■« -tMHHt *«««»**■»«« 

tt«»»*WARNIN6 NO* !6 STATEMENT NO, 166 BASir BLOCK NO, 165 

CORRESPONDING ARGUMENTS IN THE PARAMETER lISTS aRE OF 
DIFFERENT DIMENSIONALITY* 

calling SUBPROGRAM CALLED SUBPROGRAM 



unseig 

RVEC 

ARGUMENT POSITION 

lo 

10 

number of dimensions 

0 

1 

NAME OF ARGUMENT 

CC 

INTER 

KIND OF ARGUMENT 

IDENTIFIER 


INPUT CLASS 


NON INPUT 

OUTPUT CLASS 


STR. OUTPUT 


■ * tto »»» <HHH» * -(HUHHHttttt **»*«*#*#« ■»**■» W** ft **#«#« *Ht «***<»*««**# ***** # 


*ttft ftftft#*ft»ftftft«ft*ftft«ft#fttttt*tt*'t>*<HM»tt«#*ft****ft**»«ft«***ftft*<»*«#<HHHH^»^ 

ft**ft*rtARNING NO. 16 STATEMENT NO, 166 BASIC BLOCK NO. 165 

corresponding arguments in THE PARAMETER LISTS ARE OF 
DIFFERENT DIMENSIONALITY, 



calling subprogram called subprogram 



unseig 

RvEC 

ARGUMENT POSITION 

11 

11 

number C(F DIMENSIONS 

0 

1 

NAME OF argument 

SS 

Y 

KIND OF argument 

IDENTIFIER 


INPUT CLASS 


NON INPUT 

OUTPUT, CLASS 


STR. OUTPUT 


ft *********** *« ftftWft ******************** ftftttftftft ft ft******************* 


************** tt»tt***ttft*****»***********»**»»e***«*«***#fl'**fr''Hm‘tt** 

#**#»V!aRNInG no, 10 statement no. 171 BASIC BLOCK NO. 170 

CORRESPONDING ARGUMENTS IN THE PARAMETER LISTS ARE OF 
different data TYPES. 

calling subprogram CALLED SUBPROGRAM 



unseig 

IHVEC 

ARGUMENT POSITION 

11 

11 

DATA TYPE 

real 

integer 

NAME OF ARGUMENT 

CC 

inter 

KIND OF argument 

Identifier 


INPUT CLASS 


non input 

OUTPUT CLASS 


STR. OUTPUT 


♦ft*********************************************** *»«*******<>***** 


*************»************»«■**#***■»*******************■»*«-»**#<>*'»* 
*#***WARNIN6 NO. 16 STATEMENT NO. 171 BASIC BLOCK NO. 170 

^ ? - p... .-.i; J C’.. -3 C A 

**-^..-<.....13 fc 3 Cr-r'«-’:‘..'-p 


— 



■ysi 




rrr*: rm rr^ r7!r': t^i 

CORRESPONniNG ARGUMENTS IN THE PARAMETER lISTS aRE OF 

different dimensionality. 

calling subprogram called subprogram 



UNSEIG 

imvec 

argument position 

11 

11 

number of dimensions 

0 

1 

name of argument 

cc 

INTER 

KIND OF ARGUMENT 

identifier 


INPUT class 


NON INPUT 

output class 


STR. output 


-»««««*-» »«•«*«*««»«*«*«***««»««»»« <»■»«-» 






p 111 j fisai 


V 


warn IMG NO. 16 STATEMEN'I NO. 171 BASIC BLOCK NO. ITO 

corresponding arguments in the parameter lists are of 
different dimensionality. 


calling 

subprogram 

called subprogram 


UNSEIG 

• imvec 

ARGUMENT POSITION 

12 

12 

NUMBER OF DIMENSIONS 

0 

1 

NAME OF argument 

SS 

y 

KIND OF argument 

Identifier 


INPUT CLASS 


NON INPUT 

OUTPUT CLASS 


STr. OUTPUT 


««««««» a •««««* 


»««*«»«««««**•**«*»*•••«* 

*#***WARNING no. 16 STATEMENT NO. 171 BASIC BLOCK NO. 170 

corresponding arguments in THE PARAMETER LISTS aRE OF 
different dihensionahty. 

calling subprogram CALLED SUBPROGRAM 



unseio 

IMVEC 

ARGUMENT POSITION 

13 

13 

number of dimensions 

0 

1 

NAME OF ARGUMENT 

z 

7 

KINO OF argument 

Identifier 


INPUT CLASS 


NON INPUT 

OUTPUT CLASS 


STR. OUTPUT 


«*•«»«««<}•*»***»**«**•«•<»«««*#»«««««»*« 4 ««««*##« 


«****WARNIN6 NO. 16 STATEMENT NO. 171 BASIC BLOCK NO. 170 - 

corresponding arguments in the parameter lists are of 
OIFFERENT dimensionality. 


calling 

SUBPROGRAM 

called subprogram 


UNSEIG 

IMVEC 

ARGUMENT POSITION 

U 

14 

number of dimensions 

0 

2 

NAME OF ARGUMENT 

BB 

R 

KIND OF ARGUMENT 

Identifier 


INPUT CLASS 


NnN input 

OUTPUT CLASS 


STr, output 











»**tt«wARNlNG NO. 27 

THE LOCAL VARIABLE NAMED GREaT IS ASSIGNED A VALUE IN 
BLOCK 13 and is ASSIGNED A VALUE THEREAFTER BEFORE ANY INPUT 
USE OR IS NOT subsequently USED AS INPUT* ON SOME PATHS. 


ONE 

SUCH 

PATH, 

indicated by 

basic 

BLOCK 

NUMBERS, IS 

13 

1 A 

15 

16 

17 

la 

27 

2S 

29 33 

3A 

35 

36 

39 

40 

41 

42 

43 

44 A5 

46 

47 

4fl 

A9 

50 

51 

5c 

53 

54 55 

56 

57 

5B 

59 

60 

61 

62 

63 

64 66 

67 

69 

70 

71 

72 

76 

77 

78 

79 BO 

01 

04 

66 

07 

151 

152 

175 




#**M»*#«**tt***********Mtfr**»«-tt*«<HHHm-*HHHHH*iHt*HHi*MHHt*#«-tH»*MHMHHt#*** 


-Jt ** e * e tt #*#***»» O *#*#■»»*»*** ft <Mt »«««* W -» O *«**»* 

“WARNING NO. 27 

the local variable NAMED MAX IS ASSIGNED A VALUE IN 
BLOCK U and IS ASSIGNED A VALUE THEREAFTER BEFORE ANY INPUT 
USE OR IS NOT subsequently USED AS INPUT* ON SOME PATHS, 

ONE SUCH PATH, INUICATEO BY BASIC BLOCK NUMBERS, IS 
lA 15 10 U 13 U 


“““““WARNING NO, 27 

THE LOCAL VARIABLE NAMED C IS ASSIGNED A VALUE IN 

BLOCK 100 AND IS ASSIGNED A VALUE THEREAFTER BEFORE ANY INPUT 
USE OR IS NOT subsequently USED AS INPUT* ON SOME PATHS. 

ONE SUCH PATH* INDICATED BY BASIC BLOCK NUMBERS, IS 


IQB 

169 

110 

111 

112 

128 

129 

132 

133 

135 

136 

138 

139 

142 

143 

144 

147 

148 

149 

150 

91 

9? 

93 

94 

95 

97 

90 

10? 

103 

107 


lOB 


“““““WARNING NO. 27 

THE LOCAL VARIABLE NAMED DELTA IS ASSIGNED A VALUE IN 
BLOCK 76 AND IS ASSIGNED A VALUE THEREAFTER BEFORE ANY INPUT 
USE OR IS NOT SUBSEQUENTLY USED AS INPUT* ON SOME PATHS, 

ONE SUCH PATH, INDICATED BY BASIC BLOCK NUMBERS, IS 
76 77 78 79 BO 8l 84 06 flT 151 

IS? 17s 


****** WARujIfqG MO, 27 

THE LOCAL VARIABLE NAMED ARl IS ASSIGNED A vALUE IN 
BLOCK U« AND IS ASSIGNED A ValUE THEREAFTER BEFORE ANY INPUT 
' ’USE*"' IS N* "■UBSf'‘""NTLY' "^'^D A-^ ’• PUT*-- -SOmT ’’^ThS,, , 






ONE SUCH PATH» INDICAT£D By SASIC BLOCK NUHBERSf IS 
140 149 150 91 92 93 94 95 97 90 

102 104 105 106 BO 01 BA 05 SB 


*««■*#<»■»#*#■»**#»#«#* ft **•»#«*#* tHHHUH** « ft tt » 1MMM> #■»«*# # 

ftitftftftWARiil ,‘fi NO, 27 

THE LOCAL VARIABLE NAMED AR3 IS ASSIGNED A VALUE IN 
BLOCK 124 and IB ASSIGNED A VaLUE THEREAFTER BEFORE ANY INPUT 
USE OR IS NOT SUBSEQUENTLY USEO AS iNPUTi ON SOME PATHS, 

ONE SUCH PATH* INDICATED BY BASIC BLOCK NUMBERS, IS 
124 125 126 127 91 9g 93 04 95 97 

9R 102 104 106 106 00 81 84 65 SB 

B9 

ftftOftftftftftftftftftftftftttftftftftftftftftftftftttftftftftttttftftftftftftftftftftftftftftftftftftftftftftftftO^ft^ftftft 


«ft«ttttft*«*««««««*««ft**ft«***ft*««ft«*ft«»»«ttft««ft««ft«-ft««ftft«ftft»fttt*tt«ftft*ft 

ttftftttftVlARNlNQ NO, 27 

the local variable named AR4 IS ASSIGNED A VALUE IN 
BLOCK 125 and IS ASSIGNED A VALUE THEREAFTER BEFORE ANY INPUT 
USE OR Is NOT SUBSEQUENTLY USED AS INPUT* ON SOME PATHS, 

ONE SUCH PATH* INDICATED BY BASIC BLOCK NUMBERS, IS 
125 126 127 91 92 93 94 95 97 9B 

102 104 105 106 60 81 04 85 08 69 

9n , 

ftttftftc ftftftft ft# ftftftftftftftftftft ft »ft*ft*ft»ftftftOftft»«frftft»ftttftft»ftttft«ftttftftftftft*'ftft**ftftft 


*ftOftft**#*ftftft*#***ft#*ft**«#ft«**tftft#tt«ftttftft#«ftttftftftftft«ft«»ftftft«*#*ft****ftft 

ftftftftftWARNING NO, 27 

THE LOCAL variable NAMED ANUM IS ASSIGNED A VALUE IN 
BLOCK 115 and is ASSIGNED A VALUE THEREAFTER BEFORE ANY INPUT 
USE OR IS NOT subsequently USED AS INPUT* ON ALL PATHS, 

ONE SUCH PATH* INDICATED BY BASIC BLOCK NUMBERS, IS 


115 

116 

117 

116 

122 

123 

124 

1?5 

126 

127 

91 

92 

93 

94 

95 

97 

98 

102 

103 

107 

108 

log 

lln 

111 

113 

114 

115 





**«ttft«»ftft*tt«ft*tt«ft«ft#ftftftft«*#«*ftftftttftft«ftftftftftft***ftftftftft»*ftft4tt»ftftflft»ftfttt 


ft»«ft*0*ftftftft»#«ftftft#«*ftftftft-*»*«*ft«*«*ftftO»ft#*ft**#*ft*#ft*ftft»<H»*4<HHH»*ftft 

->»«*WARNING NO, 27 

THE LOCAL Variable named hho is assigned a value in 

BLOCK 122 AND IS ASSIGNED A VALUE THEREAFTER BEFORE ANY INPUT 
USF OR IS NOT SUBSEQUENTLY USED AS INPUT* ON SOME PATHS, 

ONE SLiCH PATH, INDICATED BY BASIC BLOCK NUMBERS, IS 
122 123 124 125 126 127 91 92 93 94 

95 97 90 102 103 107 108 109 llO 111 

113 114 115 116 117 IIB 122 

«*ftft ftftftftftftOftftftftftftftftftftftft #«ftft»ft«ft«ftftftftftftttft*ftftft«»ft»ftft*ftft»<*««*»<**4«««* 


ft*eft««ftftftft**ft«tt*ft#««ft**ftftft**«ft«ftftft«Ott*tt*tt**HHHHHH»«#*ftttftftftftft»tttttt** 

ftftftftftWARNiNO NO, 27 


THE LOCAL variable NAMED SIGMA IS ASSIGNED A VALUE IN 


L 


I iitinniTinfiTirTniii 




BLOCK 123 AND IS ASSIGNED A VALUE THEREAFTER BEFORE ANY INPUT 
USE OR IS NOT subsequently uSEd AS INPUTi ON SOME PATHS, 

ONE SUCH PATHp INDICATED BY BASIC BLOCK NUMBERS, IS 


123 

124 

125 

126 

127 

91 

92 93 

94 

95 

97 

9B 

102 

103 

107 

lOB 

109 llO 

111 

113 

114 

115 

116 

117 

lie 

122 

123 






#»#*«« ARNING NO, 27 

the local variable named JI is assigned a VALUE IN 

BLOCK 171 AND IS ASSIGNED A VALUE THEREAFTER BEFORE ANY INPUT 
USE OR rs NOT SUBSEQUENTLY USED AS INPUTt ON SOME PATHS, 

ONE SUCH PATHf INDICATED BY BASIC BLOCK NUMBERS, IS 
171 172 173 175 

«««««««« ft a 


#****WARNInG no. 27 

THE LOCAL variable NAMED NH IS ASSIGNED A VALUE IN 

BLOCK 156 AND IS ASSIGNED A VaLUE THEREAFTER BEFORE ANY INPUT 
USE OR IS NOT SUBSEQUENTLY USEd AS INPUT » ON ALL PATHS. 

ONE SUCH PATH, INDICATED BY BASIC BLOCK NUMBERS, IS 
156 157 158 ISR 160 l6l 162 163 16A 170 

m 172 173 175 


ftftttflftHESSAGE NO, 37 

subprogram unseig is never called, 

DIAGNOSTICS FOR PROoRAM UNIT CAlCEV 




w' 


ftftft«*MESSAGE NO, 42 

AN element of THE COMMON OR PARAMETER ARRAY NAMED VEC 
IS assigned a value IN BLOCK 39 AND SOME ELEMENT OF THE 
ARRAY IS assigned A VALUE THEREAFTER BEFORE ANY INPUT USE OF 
THE ARRAY ON SOME PATHS, 

ONE SUCH PATH, INDICATED BY BASIC BLOCK NUMBERS. IS 
39 40 

ftftftftft ftftftOftftOftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftWftftftftftftftQftftttftftftftftftttftft 


Classification of parameter and common variables 
subroutine calcev 


Parameters/entries 

r . .; (0RD^,^;:T| p ..v ,! NAME, n | - ’; MPUT^ ASS ft t 


^ ''"TPUTu C* 'iSS 


Saa -i g:r-"3 Ij^-r; Gaa 6^ 


1 

A 

STRICT 

OUTPUT 

2 

nmax 

STRICT 

NON 

3 

DEL 

STRICT 

NON 

4 

VEC 

NON 

STRICT 

5 

UK 

STRICT 

STRICT 

6 

N 

STRICT 

NON 

7 

M 

STRICT 

NON 


• ««tt«tt a «»*«««»«#«»«•«•««« *#tttttt««tt »<»»«{»««««««*«»««•*« 4# 

«*#««»« «!>««««««««•«• «««*««-# tfO-t« it A »*« »»««**««« 

diagnostics for program unit REaUIT 


»««tt«ft««*»*«ft •«<»«•«»«(»*«««««««*•«*»« 

##*#*HESSAGE no. A2 

AN element of the COMMON OR PARAMETER ARRAY NAMED C 

IS assigned a value in block h and some element of the 

ARRAY IS assigned A VALUE THEREAFTER BEFORE ANY INPUT USE OF 
THE ARRAY ON SOME PATHS. 

ONE Such PATHt indicated by basic block numbers, is 
n ^2 13 23 8 q 10 lA 


***#«HE5SAGE NO. 42 

AN ELEMENT OF THE COMMON OR PARAMETER ARRAY NAMED S 

IS assigned a VALUE IN BLOCK 12 AND SOME ELEMENT OF THE 
ARRAY IS assigned A VALUE THEREAFTER BEFORE ANY INPUT USE OF 

the array on some paths, 

ONE SUCH path, INDICATED BY BASIC BLOCK NUMBERS, IS 
12 13 23 a 9 It) 14 15 


CLASSIFICATION OF PARAMETER AND COMMON VARIABLES 



SUBROUTINE 

realit 



PARAMETERS/ENTRIES 


ORDER 

NAME 

Input class 

OUTPUT CLASS 

1 

A 

STRICT 

STRICT 

2 

nmax 

STRICT 

NON 

3 

L 

STRICT 

NON 

4 

N 

STRICT 

NON 

5 

SHIFT 

STRICT 

NON 

6 

C 

MON 

STRICT 

7 

5 

NON 

STRICT 





DIAGNOSTICS FOR PROGRAM UNIT COhPIT 


*****MESSAGE no, 42 


AN element of the COMMON OR PARAMETER ARRAY NAMED A 

IS assigned a value in block 66 AND SOME ELEMENT OF THE 
array is assigned a value thereafter BEFORE ANY INPUT USE OF 
THE ARRAY ON SOME PATHS, 

ONE SUCH PATHi INDICATED BY BASIC BLOCK NUMBERS, IS 
66 67 

*** *********** ft * tt #«««-»«*«** tHHHUHKHt » A » tt iMHJ- e tt tt tt -It -IHHt O * 


Classification of parameter and common variables 



subroutine 

COMPIT 



PaRAHEtERS/eNTRIES 


order 

Name 

input class 

OUTPUT CLASS 

1 

A 

STRICT 

OUTPUT 

3 

NMAX 

STRICT 

NON 

3 

L 

STRICT 

NON 

4 

N 

STRICT 

NON 

5 

RHO 

INPUT 

NON 

6 

SIGMA 

INPUT 

NON 




diagnostics for program unit 


rvec 


**tt«*«1,«*«*»*«* «*«««««« «««««««*« 

<hhh»#MESSaqE no, 43 


AN element of the COMMON OR PARAMETER ARRAY NAMED A 

IS assigned a value in block 11 AND SOME ELEMENT OF THE 
ARRAY IS ASSIGNED A VALUE THEREAFTER BEFORE ANY INPUT USE OF 
THE array On some PATHS, 

ONE Such path, indicated by basic block numbers, is 

11 13 


#*♦«*«*«*« !>•««*•»*»• #**«»«»#<> ■»(*«*«» 
#*»#*M£SSAGt NO. 43 

AN ELEMENT OF THE COMMON OR PARAf^ETER ARRAY NAMED EIGVEC 
IS assigned a VALUE IN BLOCK 77 ANQ SOME ELEMENT OF ThE 
ARRAY IS assigned A VALUE THEREAFTER BEFORE ANY INPUT USE OF 
THE ARRAY ON SOME PAThS, 

ONE SUCH PATH, INDICATED BY BASIC BLOCK NUMBERS, IS 
77 77 


•**##*»«*«*** W »** tt « a **#***#«■* #« ttOfliHH* *##«<» Otttt * (Ht « *««*#*■»** <HM» 

##*»»MESSA<5E NO. 43 


w 



an Element of the common or parameter array named inter 
IS assigned a value in block 14 and SOME ELEMENT OF THE 
array is ASSIGNED A VALUE THEREAFTER BEFORE ANY INPUT USE OF 
THE ARRAY ON SOME PAThS, 

ONE SUCH PATH, indicated BY BASIC BLOCK NUMBERS, IS 
14 is 16 31 5 6 14 

P ^ f - b- t s: ■■* ^ ^ t ♦ I -- t ! 

ni ♦.'i-.-.j— *i-i i-*-. — 



**«««*«««*•«»««•«*»*«#««»«« II 

****«MESSagE no. 4H 


AN element of 

THE COMMON 

OR 

parameter array 

named Y 

^*1 1 

IS assigned a 

VALUE IN BLOCK 

65 AND some 

element of The 


ARRAY IS assigned A VALUE 

THEREAFTER BEFORE 

ANY input USE OF 


the array ON 

SOME PATHS, 




Cr 

ONE SUCH PATH 

, indicated 

By 

BASIC BLOCK NUMBERS, IS 


65 ft6 





r 

*N**«*«*tt**««»**it««**«tttt«*«*tt««a**«*it*«*tt*tt*it«{t**ititit*«<t»**tt**«**» 

. 

CLASSIFICATION OF 

PARAMETER AND COMMON VARIABLES 



SUBROUTINE 

rvec 




PARAMETERS/ENTRIES 




i: ORDER 

Name 


INPUT CLASS 

OUTPUT CLASS 

i. 1 

A 


STRICT 

STRICT 


1- 2 

nmax 


STRICT 

NON 


3 

I NT 


STRICT 

NON 


4 

ci 


STRICT 

NON 

V '■ 

5 

SHALL 


STRICT 

NON 

V 

6 

N 


STRICT 

NON 


7 

HUM 


STRICT 

NON 

■ 

B 

EIGVEC 


NON 

STRICT 


R 

NVEC 


NON 

NON 


in 

INTER 


NON 

STRICT 


11 

Y 


NON 

strict 



***** mUMm *#*****«•# IHtluMH1 1* * IIIHHHl # IHHHUHHHHHHHHI * IIIHUHHHHHm « <H» » O It II 
• *«« lt«*ttlt It •***«**•» **ltlM»»***tt*li It *«Mt It It It *0'«tt«***«*«**-lttt** It ««******« 
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***«**i>*tt*«**«**«*ft«tt****«*««*«*«*»**ittt *********** *«it«*i»** It «»««it«it 

**it**HesSAGE NO. 42 



AN element of the COMMON OR PARAMETER ARRAY NAMED A 

IS assigned a VALUE IN SLOcK 20 AND SOME ELEMENT OF THE 
ARRAY IS assigned A VALUE THEREAFTER BEFORE ANY INPUT USE OF 
THE ARRAY On SOME PAThS. 

ONE SUCH PATH, INDICATED BY BASIC BLOCK NUMBERS. IS 
20 21 

*«****»**«***'>**** *******tt****«tt**#»iiit #*##**»*»****** ************ 


«***»«* St* It *it**tt«**«**ii«***«*****««it««ii«*«it*itit«ttit*ait{t*{t4t*it*»*it«*«« 

*****ME;S5agE no, 42 


an element of the common OR Parameter array named eigvec 
IS ASSIGNED A VALUE IN BLOCK 126 AND SOME ELEMENT OF ThE 
ARRAY IS assigned A VALUE THEREAFTER BEFORE ANY INPUT USE OF 
THE ARRAY ON SOME PATHS, 

UNE SUCH PATH, INDICATED BY BASIC BLOCK NUMBERS, IS 


126 


***it**«***ii*******«****«»iH»**it«ltttii0«tt*it**itii*it*e*in>itttitit*it***it*’i»it«* 



■ 




INC* 

. yn 


**«»«MESSA6E no. 42 


AN element OE the COMMON OR I^ARAMETER ARRAY NAMED INTER 
IS assigned a value in block 26 AND SOME ELEMENT OF THE 
ARRAY IS assigned A VALUE THEREAFTER BEFORE ANY INPUT USE OF 
THE ARRAY ON SOME PATHS, 

ONE SUCH PATHt INDICATED BY BASIC BLOCK NUMBERS, IS 
?6 ?7 28 35 9 In 11 l2 p6 

*** <MM» *«»* ** O fl- *» «HHM» * <HHH» ****** fl- i> » tUMK* » #■»# ft 


»«#»#*«*•■» ft**ft«ftftftftftdftftft*ftftftftft#*ft 

ft*ft*ftMESSAGE NO, 42 

AN element OF THE COMMON OB PARAMETER ARRAY NAMED Y 

IS assigned a value IN BLOCK 102 AND SOME ELEMENT OF THE 
array IS assigned a value thereafter BEFORE ANY INPUT USE OF 
THE ARRAY On SOME PATHS, 

ONE SUCH PATH, INDICATED BY BASIC BLOCK NUMBERS, IS 
102 1a3 

t>«o«ftftft«ft««ft«ft«ftft*ft«ft«ftftftftft*ftftftft«ftftft«ftftftftftftftftftftftftft««ft«ftftftftftftftftftft« 


ttft»ftft*««*««««ft««ftftft«ft«ftftftfttt»ft«ftft««ft««ft«ftftftftftttft<}ftftftftftftftftftftftft«ftftftftft 

**ft<*»HESSAGE NO, 42 

AN element of THE COMMON OR PARAMETER ARRaY NAMED Z 

IS assigned a value IN BLOCK 105 ANO SOME ELEMENT OF THE 
ARRAY IS ASSIGNED A VALUE THEREAFTER BEFORE ANY INPUT USE OF 
THE array On SOME PATHS, 

ONE SUCH PATH, INDICATED BY BASIC BLOCK NUMBERS, IS 

loS lo6 

*****«0<t«««MMt*#*«»<HH»«»*ftftft*ft«*ft**»ft<H*it*ft««ft*tt*ftftftttft*ftftftftftftft»ftftft# 


««««««4«»««»«ft»ft««t^««4ftftftftftftftftft«-ttftft««ft«ftftftftft«ft«ft«ftftft»ftftftft4ftftftftftftft 

ftftttftftHESSAGE NO. 42 

AN element of THE COMMON OR PARAMETER ARRAY NAMED B 

IS assigned a VALUE IN BLOCK 23 AND SOME ELEMENT OF THE 
ARRAY IS assigned A VALUE THEREAFTER BEFORE ANY INPUT USE OF 
THE ARRAY ON SOME PATHS* 

ONE SUCH PATH, INDICATED BY BASIC BLOCK NUMBERS, IS 
23 24 

4««ft««44««4«ftft4ft«ftftft*ftftftftftftft*ft*ftftft«««*ft*ftftftftftftftftftftftftftftftftftftftftftftftftft 


CLASSIFICATION OF PARAMETER AND COMMON VARIABLES 





subroutine IHVEC 


PARAMETERS/ENTRIES 


OROER 

name 

input class 

OUTPUT CLASS 

1 

A 

STRICT 

STRICT 

2 

NMAX 

STRICT 

NON 

3 

I NT 

STRICT 

NON 

4 

Cl 

STRICT 

NON 

5 

AMU 

STRICT 

NON 

G 

SHALL 

STRICT 

NON 

7 

N 

STRICT 

NON 

a 

NUM 

STRICT 

STRICT 

9 

EIGVEC 

NON 

strict 

.1 


1 C-. 

V ’-'--••'4 tf-- ‘ •'^4 

-1 C ^ 




10 

NVEC . 

NON 

NON 

11 

inter 

NON 

STRICT 

12 

Y 

NON 

STRICT 

13 

Z 

NON 

STRICT 

U 

8 

NON 

STRICT 


diagnostics for program unit UNsEiG 


*****HE5SAGE no, A-2 

AN element of the COMMON OR PARAMETER ARRAY NAMED A 

IS assigned A VALUE IN BLOCK l62 AND SOME ELEMENT OF THE 
ARRAY IS ASSIGNED A VALUE THEREAFTER BEFORE ANY INPUT USE OF 
THE array On some paths. 

ONE SUCH PATHf INDICATED BY BASIC BLOCK NUMBERS, IS 
16S lft2 


o«»tt»MESSAGE NO, 42 

AN element of the COMMON OR PARAMETER ARRAY NAMED INT 
IS assigned a value in block 16 AND SOME ELEMENT OF THE 
array is assigned a value THEREAFTER BEFORE ANY INPUT USE OF 
THE array On some paths, 

ONE Such PATH, indicated 8V BASIC BLOCK NUMBERS, IS 
16 l7 18 27 28 29 33 3 A 35 36 

39 40 5 6 7 B 9 lo 11 12 

15 16 


»*<hm»HESSagE no. 42 

AN element of THE COMMON OR PARAMETER ARRAY NAMED D 

IS assigned a value IN BLOcK 43 AND SOME ELEMENT OF THE 
array is assigned a value thereafter BEFORE ANY INPUT USE OF 
The array On some paths, 

ONE SUCH PATH* INDICATED BY BASIC BLOCK NUMBERS, IS 
43 43 

# * # ft 4 ■» o tt « tttnnnn, * « * ***««#«## * * « « # « #tt # * 4 * *4 O « O ♦ » * O « tt ft « 

CLASSIFICATION OF PARAMETER AND COMMON VARIABLES 

subroutine UNSEIQ 


paRameters/entries 



ORDER 

NAME 

Input class 

OUTPUT Class 


1 

A 

strict 

STRICT 


2 

NMAX 

STRICT 

NON 

N 

3 

NN 

STRICT 

NON 


4 

NVEC 

STRICT 

NON 

7^ 

5 

VEC 

non 

STRICT 

6 

EIGVEC 

non 

OUTPUT 





OF POOH QUALITY 


7 

INT 

NON 

STRICT 

8 

CC 

NON 

OUTPUT 

9 

ss 

NON 

OUTPUT 

in 

z 

NON 

OUTPUT 

11 

D 

NON 

STRICT 

12 

BB 

NON 

OUTPUT 
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CD 




1 
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TOOL 

-1 1 ■ . m .. -j 

implementation s 

:OURCE LANGUAGES 

accepted 

STATIC / DYNAMIC 

ATDG 

NASA-HOUSTOK 
HOUSTON, TEXAS 

1 ... 

UNIVAC 

FORTRAN 

STATIC 

FORTUNE 

CAPEX 

PHOENIX, ARIZONA 

IH4 

CDC 

FORTRAN 

STATIC 

NBS ANALYZER 
NBS 

WASHINGTON, 13. C, 

UNIVAC 

FORTRAN 

STATIC 

DYNAMIC 

PET 

MCDONNELL- 

DOUGLAS 

HUNTINGTON BEACH 
CALIFORNIA 

CDC 

HONEYWELL 

G.E, 

UNIVAC 

FORTRAN 

STATIC 

DYNAMIC 

PFORT 

BELL LAB 
14URRAY HILL 
NEW JERSEY 

IBM 

CDC 

BURROUGHS 

HONEYWELL 

OTHERS 

FORTRAN 

— ,, 

STATIC 

PPE 

BOOLE AND BABBAGE 

SUNNYVALE 

CALIFORNIA 

IBM 

ALL 

DYNAMIC 

STRUCTURING 

ENGINE 

(SFORTRAN) 

CANEjFARBER, 

GORDON, INC. 

PASADENA 

CALIFORNIA 

IBM 

FORTRAN 

STATIC 

DISSECT 

MCDONNELL- 

DOUGLAS 

HUNTINGTON BEACH 
CALIFORNIA 

PDPIO 

FORTRAN 

STATIC 
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ic / DYNAMIC 


OPERATIWG COST 
1-LOW 


STATIC 


EASE OF USE 
1-MSY 

5-DIFF, 


FEATURES 


.DETERMINES VALUES OF 
PROGRAM VARIABLES TO PRO- 
DUCE OPTIMAL TEST CASES 


LIMITATIONS 


.DIFFICULT TO 
INTERPRET OUT- 
PUT 


STATIC 


.EXACT STMT EXECUTION COUNTS 
.ESTIMATED EXEC TIME FOR 
EACH STATEMENT 
.NUMBER OF IF STATEMENT TRUE 
PATHS TAKEN 

.SUBROUTINE EXECUTION TIMINGS 


.NO LONGER 
ACTIVELY 
SUPPORTED 


STATIC 

DYNAMIC 


.SUIvlMARY OF SOURCE STATEMENTS 
BY FORTRAN TYPE 
.EXECUTION COUNTS FOR 
PROGRAM SEGMENTS 


STATIC 

DYNAMIC 


STATIC 


2-3 

DEPENDING ON OPTIONS 


DYNAMIC 


STATIC 


STATIC 


.EXACT STMT EXECUTION COUNTS 
.IF STATEMENT TRUE AND FALSE 
BRANCH COUNTS 
. MINIMUM AmiMUM VALUES 
ATTAINED BY PROGRAM VARIABLES 
.FIRST AND LAST VALUES 
ATTAINED BY PROGRAM VARIABLES 

.RELATIVE SUBROUTINE EXEC TIM- 
INGS 


.CHECKS SOURCE PROGRAM FOR 
ADHERENCE TO A PORTABLE SUB- 
SET OF ANS FORTRAN 
.SUBPROGRAM COtvIMUNICATION 
CHECKED THROUGH COMMON & 
ARGUMENT LISTS 

.SUBPROGRAM CROSS REFERENCE OF 
ID TYPE. USAGE AND ATTRIBUTES 


.SAMPLES EXECUTING PROGRAM AT 
REGULAR INTERVALS TO OBTAIN 
PERFORMANCE STATISTICS 

.MEASURES I/O WAIT TIME 
.MEASURES TIM SPENT EXECUTING 


PERFORMANCE 
STATISTICS AREj 
NOT REPORTED 
AX SOURCE 
STMT, LEVEL 


.PRODUCES A STRUCTURED FORTRAN 
PROGRAM AND I.ISTING FROM 
FORTRAN SOURCE 
.PREPROCESSOR AVAILABLE TO 
TRANSLATE STRUCTURED PROGRAM 
INTO FORTRAN FOR COMPILATION 


lOOOK LOAD 
MODULE 
CAN PRODUCE 
EXCESSIVELY 
LARGE STRUC- 
TURED PROGRAMS! 


TESTS PROGRAMS INFORMALLY 
BY COMPUTING VALUES OF 
PROGRAM VARIABLES ALONG 
SELECTED PATHS 
.ALLOWS SYMBOLIC EXECUTION 
OF PROGRAMS 


.SOME USER TIME 
REQUIRED TO 
SET UP TEST 
CASES 
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POLDOU|_|EAMa 


SUMMABY or TEST RESULTS 




















IlvlPiiEi' ::'TATI0MS 


SOURCE LAUGUAGES 
ACCEPm) 


STATIC / DYHAMIC 


JOYCE 


MCDOMELL- 

DOUGLAS 

HUMTINGTOW BEACH 
CALIFORNIA 





SUimRY OF % 


SECTION A. 5 















4IC 

OPERATING COST 

1- LOW 

2- HIGH 

EASE OF USE 
1-EASY 

5-DIPF. 

FEATURES 

LIMITATIONS 


2 

2 

• CHECKOUT Al^D DOCUMENTATION AID 
.lyllCROFILIvl FLOWLIST WITH ALL 
TRANSFERS INDICATED BY ARROWS 
Ai^D ALL DO LOOPS II'IDI GATED BY 
BRACKETS 

•COMPLETE CROSS-REFERENCED 
PROGRAM GLOSSARY 


1 

5 

2 

• CHECKS FOR A WIDE VARIETY OP 
SOURCE ERRORS 

•ISSUES WARNING MESSAGES FOR 
POSSIBLE ERRORS 

•REDUNDANT 

OUTPUT 

MESSAGES 



' 
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A. 6 RECOMMENDATIONS 


A knowledge of currently available automated verification tools should 
be part of the software designers repertoire of techniques and procedures 
for developing reliable software. These tools can impact the software 
life cycle at five points: 

(1) During program development to insure program specifications 
and standards are met. 

(2) In formal acceptance testing as p record of acceptance standards. 

(3) As a debugging aid 

(4) As an integral part of program docximentation 

(5) As a performance measurement tool aimed at improving program 
efficiency. 

The following guidelines are recommended when considering an automated 
verification tool for use at GSFC. 

(!) Select the tool early in the software development cycle and 
have it installed at GSFC. Unforeseen delays often occur 
when installing tools at the users site. 

(2) Care must be taken to select a tool that is easy for the 
applications programmer to use. Clear and consise documentation 
must be readily available for the users. 

(3) The use of an automated verification tool must supplement, 
and not replace, good desk checking procedures and well 
designed test plans. 

(4) In most cases, the application of an automated verification 
tool increases machine costs. Many available tools are very 
powerful and can be misused by applying them to classes of 
problems that can be solved by simpler means. 

The following are recommendations for the use of the tools involved 
in this study by GSFC. 

PFORT is representative of a class of automated verification tools 
known as standards auditors. This tool checks FORTRAJS programs 
for machine transferability, and can be especially valuable at GSFC 
when verifying that vendor programs coming into GSFC adhere to a 
prescribed set of standards. 

PPE (Problem Program Evaluator) is currently in use at GSFC. Its 
approach to execution monitoring by interrupting running programs 
at preset time intervals is unique. PPE is a well established 
proven tool of considerable use in performance measurement application 


The SFORT structuring engine is considered impractical at this 
time for use at GSFC due to extreme system resource requirements 
(lOOOK load modulo and high t;xecution time). 

The three execution analyzers (NBS Analyzer, FORTUWE and PET) 
can be grouped together functionally. FORTUWE is no longer 
actively supported. PET (Program Evaluator and Tester), although 
more costly than the NBS Analyzer, has been operating on IBM 
360/370 computers since 1972 and offers powerful capabilities. 

Where cost is a major factor, the NBS Analyzer (not available 
on IBM) migh^ be considered. In all other cases PET is 
recommended. 

ATDG (Automatic Test Data Generator) and the DISSECT Symbolic 
Evaluation System can best be thought of as representative tools 
from current research into the field of program testing and 
proving- More research and development is required to fully 
realize tools of this kind and apply them toward a formal 
demonstration of program correctness. The usefulness of 
ATDG and DISSECT to GSFC at this time is doubtful, due to 
programmer time required to invoke the tool and interpret 
the output to draw meaningful conclusions about program 
correctness. However, continued refinement and development 
of these techniques warrant additional support. 

JOYCE and DAVE have proven to be valuable documentation and checkout 
aids. JOYCE, however, is not currently available on IBM and therefore 
could not be installed at GSFC at this time. 


